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ABSTRACT 


In  this  thesis  we  report  on  an  experiment  to  solve  a  three  dimensional  eUiptic 
problem  using  ELLPACK  software.  The  physical  problem  arises  when  calculating  the 
distribution  of  temperatures  within  an  electronic  package  in  order  to  assist  in  the  design 
of  appropriate  cooling. 

ELLPACK  software  is  modified  here  to  solve  three  dimensional  problems  more 
general  than  the  ones  it  was  originally  designed  for. 
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THESIS  DISCLAIMER 


The  reader  is  cautioned  that  computer  programs  developed  in  this  research  may  not 
have  been  exercised  for  all  cases  of  interest.  While  every  effort  has  been  made,  within  the 
time  available,  to  ensure  that  the  programs  are  ffee  of  computational  and  logic  errors,  they 
cannot  be  considered  validated.  Any  application  of  these  programs  without  additional 
verification  is  at  the  risk  of  the  user. 
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I.  PRELIMINARIES 


A.  INTRODUCTION 

The  ultimate  objective  of  this  thesis  is  to  provide  thermal  designers  with  the 
necessary  tools  and  algorithms  to  estimate  steady  state  component  temperatures  in 
geometries  involving  convective  cooling  of  electronic  equipment.  The  need  for  this 
ctq>ability  becomes  increasingly  important  as  energy  generation  rates  within  modem 
electronic  packages  continue  to  rise  considerably.  Suitable  cooling  schemes  must  be 
devised  to  ensure  that  these  components  operate  reliably. 

The  scope  of  the  computations  involved  are  appreciated  when  a  typical 
configuration  is  considered  in  Figure  1.1.  A  liquid  filled  enclosure  with  a  number  of 
electronic  packages  mounted  on  a  substrate  is  cooled  at  the  top  using  a  thermoelectric 
element.  Hie  energy  generated  within  the  electronic  packt^es  is  transferred  to  the 
substrate  and  to  die  surrounding  fluid  medium  by  means  of  conduction  and  radiation.  If 
the  enclosure  wall  and  bottom  ate  well  insulated,  and  if  diere  is  no  change  in  phase  in  the 
fluid  medium,  diis  energy  is  than  transported  by  means  of  natural  convection  to  the  top 
surface  where  it  is  removed  by  the  thermoelectric  element. 

The  transport  mechanism  responsible  for  die  removal  of  the  heat  generated  from  the 
box  is  idemified  when  considering  the  construction  of  a  typical  box  portrayed  in  Figure 
1.2.  As  previously  stated,  the  heat  goierated  within  the  chip  is  removed  by  a  combination 
of  conduction  and  radiation,  however,  the  effects  of  radiation  are  negligible  within  the 
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Figure  1.1:  Schematic  sketch  of  an  experimental  arrangement  for  a  liquid  immersion 
cooling  of  an  array  of  electronic  packages. 

experimental  tonperature  ranges  of  this  problem.  Since  conduction  is  the  primary  mode 
of  heat  transfer,  the  internal  temperature  of  the  electronic  complex  is  governed  by 
ellqrtical  partial  differential  equadmis  that  are  affected  by  convective  boundary  conditions 
on  the  chq>  and  substrate.  Solving  this  problem  necessitates  the  assigiunent  of  diermal 
properties,  based  on  laboratory  measuremoits,  to  the  material  within  the  electronic 
package.  This  data  is  then  utilized  to  numerically  solve  for  die  temperature  distribution 
inside  the  region. 

The  mathematical  model  is  described  in  the  next  section  of  this  chapter.  Chrqner 
n  introduces  the  use  of  finite  difference  equidons  derived  from  Taylor  series  polynomials 
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to  numerically  ^>proximate  the  solution  to  partial  differential  equations.  Solving  partial 
differential  equations  in  this  maimer  is  accomplished  using  available  ELLPACK  software 
which  is  introduced  in  Quqner  m.  In  Chqneis  IV  and  V  numerical  algorithms  are 
derived  to  model  situations  that  arise  from  the  configuration  under  investigation  that  can 
not  be  represented  using  existing  ELLPACK  routines.  In  Chapter  VI  a  program  is 
introduced  that  incorporates  the  equations  derived  in  Chapter  IV  and  V  into  the 
ELLPACK  system.  Several  experiments  are  then  performed  checking  the  validity  of  the 
algorithms  developed.  Qupter  VI  also  provides  an  approximation  for  the  temperature 
profile  of  the  electronic  complex  described  in  Figure  1.2.  This  paper  concludes  in  Qiapter 
t  Vn  with  suggestions  for  future  research. 
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B.  MATHEMATICAL  MODEL 


The  simplified  model  under  consideration  describes  the  heat  transfer  in  a  complex 
of  a  single  electronic  package,  or  chip,  mounted  on  a  substrate  as  shown  in  Figure  1.3. 
The  following  material  properties  are  defined: 

•  k,:  Thermal  conductivity  of  the  chip. 

•  k,:  Thermal  conductivity  of  the  substrate. 

•  h,:  Thermal  convection  coefficient  along  convective  boundaries.  The  subscripted 

"i"  is  used  to  indicate  that  the  value  for  h  may  vary  along  different  convective 
boundaries. 

•  Heat  generated  inside  the  chip  per  unit  volume. 

Dimensions  depicted  in  Figure  1.3  used  in  this  ptper  are: 

•  T,:  Thickness  of  the  electronic  chip. 

•  T,:  Thickness  of  the  substrate.  Typically  Tj  «  T,. 

•  L,:  Length  of  the  electronic  chip. 

•  L,:  Width  of  die  electronic  dip. 

•  L:  Length  and  width  of  die  substrate. 

To  determine  the  temperature  distribution  for  the  complex  depicted  in  Figure  1.4, 
Lqilace’s  equation  is  solved  for  the  substrate  and  Poisson’s  equation  is  solved  for  the 
clip.  If  u  is  the  function  representing  temperature  profile  diese  equations  are  respectively: 

Wii-o  Ix|si.  |y|si.oszsr,  (i.i) 
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and 

^1  ^  ^ 

Details  cm  the  development  of  the  partial  differential  equation  model  for  the  heat  transfer 
mechanism  are  found  in  Habeiman  [Ref.  l:pp.  1-26]. 

Although  tlw  thermal  properties  of  the  two  materials  are  different,  the  temperature 
and  the  heat  flux  along  the  material  interface  most  be  equal.  The  continuity  requimnent 
for  heat  flux  is  represoited 
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^dz~  'dz 


(1.3) 


\x\ih.  \y\^!l,z^T,. 

Based  on  the  symmetiy  of  the  region  we  need  consider  only  a  quarter  of  the  material 
domain.  Figure  1.4  illustrates  the  region  under  investigation. 


Figure  1.4:  Simplified  version  of  a  chq)  mounted  <m  a  substrate  widi  planes  of 
symmetiy  at  x  s  0  and  y  »  0. 


The  boundary  conditions  for  this  region  are  expressed  as  follows: 
•  Lower  boundaiy  of  the  substrate: 


0ix^£,  0iy^il^=0  .  (1.4) 

oz  2  2 
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•  Upper  boundary  of  the  substrate: 

i 

(1.5) 

* 

•  upper  boundary  of  the  chip: 

(1.6) 

•  Eastern  boundary  of  the  substrate: 

0^y^£,  0:SrSr2  . 

A  M 

(1.7) 

•  Eastern  boundary  of  the  chip: 

(1.8) 

ft 

•  Western  plane  of  symmetry: 

dll 

^'0,  0Sy^£,  OSz^r.+Fj  . 

m 

(1.9) 

7 

Southern  plane  of  symmetry: 


(1.10) 


(1.11) 

•  Northern  boundary  of  the  ch^: 

=  h,(u  -uj  y^!l,  *T^  .  (112) 

Further  details  pertaining  to  die  development  of  boundary  conditions  axe  found  in  ()z4ik 
[Ref.  2:pp.  28-29]. 

From  this  discusskm  it  is  i^iparent  that  die  eqoadms  governing  the  temperature 
profile  for  the  electronic  composite  ate  dx>  complex  to  solve  analytically.  Instead 
numerical  methods  most  be  employed  to  iq^noximate  the  temperature  profile  inside  die 
system. 


-k,  ^  =0  y  =0,  O^z^r,  . 

'3y  2 

•  Northern  boundary  of  the  substrate; 

=*.(«  -uj  Oitsi.  y  -i.  Osisr, . 
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n.  NUMERICAL  METHODS  IN  A  SINGLE  MATERIAL  DOMAIN 


h 


% 


A.  FINITE  DIFFERENCE  APPROXIMATIONS  ON  A  UNIFORM  GRID 
1.  One  Dimensional  Analysis 

One  scheme  used  to  qiproximate  the  solution  of  ordinary  differential 
equations  is  to  replace  the  derivative  terms  appearing  in  an  e:q>ression  by  difference 
equations  that  are  derived  using  Taylor  series  polynomial  {q>proximations.  hi  Figure  2.1 
a  one  dimensional  regime  is  discretized  by  subdividing  it  into  uniform  parts  of  length  h 
where  x,  represents  any  given  point  on  the  grki.  The  points  that  lie  on  either  side  of  the 
point  X|  are  indicated  by 


x,..,  ^x,-h, 


A  Taylor  series  expansion  to  three  terms  yields 


(2.1) 


(2.2.) 

dxU  2  dx*  *'  3!  *' 


'  dxU  2  dx*U  31  dx' 


(2.2b) 


where  u(x)  is  a  function  that  describes  the  tonperature  profile  of  the  region.  The  error 
tom  in  Equruion  2.2  is  of  order  h^  and  is  doioted  as 
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Oih*)  oc  Kh*  , 


(2.3) 


where  K  is  some  constant.  From  Equation  2.3  it  is  £q>parent  that  the  iq>proximation  is 
unproved  if  the  grid  interval  is  reduced.  The  tq>proximation  can  be  further  improved  by 
using  a  Taylor  series  expansion  with  a  greater  number  of  terms,  but  for  the  purpose  of 
this  analysis  three  terms  are  all  that  are  needed. 


Figure  2.1:  Uniform  grid  super-imposed  on  a  one  dimoisional  regime. 


Using  Equation  2.2  it  is  thrown  that 


d^u  I 


u.  —  2u. 


".-I 


+  0(A*). 


(2.4) 


Equation  2.4  is  called  the  central  difference  q)proximation  of  the  secrmd  derivative  and 
is  used  to  approximate  heat  transpon  bdiavior  modeled  by  Liq>lace*s  equation  (Equatirm 
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1.1)  or  Poissm’s  equation  (Equation  1.2).  The  difference  approximation  for  Poisson’s 
equation  in  one  dimension  on  a  uniform  grid  is 


This  is  rewritten  as 


^  „ 

A’  * 


“•♦I  I-I 


_ilh^ 


Equation  2.6  is  used  to  express  a  linear  function  at  each  node  on  the  grid.  The  resulting 
linear  system  discretizes  the  partial  differmtial  equation  and  has  a  solution  which 
qrproximates  the  temperature  at  each  node.  The  error  in  the  qjproximation  that  is  a 
consequence  of  this  discretization  is  of  order  h*.’ 

2.  Two  Dlmoisioiial  Analysb 

Difference  approximations  are  also  used  to  discretize  partial  differential 
equations  that  are  defined  tm  two  dimensional  regions.  In  Figure  2.2  a  two  dimensional 
region  b  subdivided  into  uniform  squares  with  sides  of  length  h.  The  function  u(x,y)  b 
the  temperature  function  for  the  region.  The  following  expansions  are  generated  using 
Taylor  series  analysb  at  die  grid  points  adjacent  to  the  central  point  (x„yj) 


1  1 

_  A’  a»tt  1 

2  ax*  ' 

./  3!  dx*  *- 

^  /i’  d*u  1 

b  2  ax»  1* 

3!  ax’  ^ 

(2.7a) 


(2.7b) 
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(2.7c) 


u 


‘J-t 


u 


•'.>  ♦  • 


*•-'  ay  b  2  dy^  3! 


.du  I  A*  d*«  I  d*tt 
u. .  +  h _  + _  + _ 

'•-'  dy  «-w  2  dy*  3!  dy’ 


(2.7d) 


where 


(2.8) 


The  difference  iqiproximations  for  die  second  partial  derivatives  of  the  function  u(x,y)  are 
derived  from  Ecpiatkm  2.7: 


a*n  I 

dx* 


u.  -*  2if  ‘^u. 

+  (7(A \ 


(2.9a) 


Figure  2.2:  A  unifoon  grid  superimposed  onto  a  two  dimensional  region. 
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^  I 


(2.9b) 


u  .  -2u. .  +u. .  , 

=  +  0{h  \ 


Substituting  Equation  2.9  into  Poisson’s  equation  yields 


-4tt 


*./ 


- 

nr’ 


(2.10) 


which  is  known  as  the  "Five  Point  Star"  equation.  A  system  of  equations  is  then 
generated  by  applying  Equation  2.9  to  each  grid  node.  The  solution  of  the  system 
^>proximates  the  temperature  at  each  node  with  a  discretization  error  of  order  h^. 

3.  Three  Dimensional  Analysis 

The  equations  for  three  dimensions  are  derived  by  employing  the  same 
methods  as  those  previously  discussed.  Figure  2.3  depicts  a  generalized  nodal  network 
in  three  dimensions  where  a  uniform  grid  is  used.  The  expression  u(x,y;E)  is  the 
temperature  function  for  the  region.  Using  Taylor  series  expansions,  diCFerence 
approximation  of  the  heat  equation  for  the  nodal  network  is 


(2.11) 


Equation  2.11  is  known  as  the  "Seven  Point  Star”  equation. 

The  notation  used  in  Equation  2.11  is  further  abbreviated  by  defining  the 

following 


13 


Figure  2.3:  Typical  nodal  network  on  a  uniform  grid  in  a  three  dimensional  region. 


«c  *  hj,k 


II  S  II 

***./• -1.* 


“r  “  “i  ♦!./.* 


“ir  ® 


{central  point  of  nodal  network), 
{western  point  of  nodal  network), 
{southern  point  of  nodal  network), 
{lower  point  of  nodal  network), 
{eastern  point  of  nodal  network), 
{northern  point  of  nodal  network), 
{upper  point  of  nodal  network). 


(2.12) 


This  notation  will  be  used  throughout  the  pq>er.  Using  die  shortened  notation,  Equation 
2.11  is  rewritten  as 
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(2.13) 


“r  “s  H  -6“c  “at  =  -~ 

In  discussions  of  a  one  dimensional  region,  the  upper  and  lower  terms  (or  z- 
axis  terms)  and  the  northern  and  southern  terms  (or  y-axis  terms)  will  be  omitted.  For 
two  dimensional  regions  the  z-axis  terms  will  be  dropped. 

4.  Numerical  Approximatioiis  of  Boundary  Conditions 

Special  consideration  must  be  given  to  the  nodes  that  lie  on  the  boundary  of 
a  region  when  using  a  linear  system  to  discretize  a  partial  differential  equation.  Three 
major  classes  of  boundary  conditions  are  defined  in  the  analysis  of  a  steady  state  heat 
transfer  problem.  Each  results  in  a  modification  of  the  linear  equation  generated  at  or 
near  the  boundary  node. 

o.  The  Diriehlet  Boundary  Condition 

Figure  2.4  depicts  the  Diriehlet  condition  in  die  comer  of  a  two 
dimensional  region.  The  temperature  profile  is  specified  on  the  boundary  as  a  constant 
or  as  a  function.  No  discretization  equittion  is  required  on  boundary  nodes  since  the 
temperature  is  already  given  by  the  Diriehlet  condition.  However,  the  discretization 
equation  generated  for  a  node  adjacent  to  the  boundary  is  affected.  For  example, 
incorporating  the  western  boundary  conditimi,  g(y),  at  Node  9  in  Figure  2.4  yields 

gCy.^j)  (2.14) 

k 

which  is  rewritten  as 
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Figure  2.4:  Diiichlet  boundary  conditi(»i  in  die  como’  of  a  two  dimensional 
rectangular  region. 


3ug-4uc*u^*u„ 


(2.15) 


Node  6  in  Figure  2.4  is  adjacent  to  two  boundaries  toward  the  west  and  soudi.  At  this 
node  Equation  2.10  becomes 


-4«c  *^s*’*n‘  -  *  t>  *  8(yj ,  i)  j  •  <2.16) 

This  analysis  is  similady  qtplied  to  die  nordiem  and  eastern  boundaries  and  is  easily 
extended  to  three  dimensions. 
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b.  The  Neumann  Boundary  Condition 

The  second  major  class  of  boundary  conditions,  the  Neumann  condition, 
is  illustrated  in  Figure  2.S.  For  the  Neumann  boundary  condition  the  magnitude  of  the 
outward  pointing  normal  derivative  is  given  along  the  boundary.  Physically  this 
derivative  models  the  outward  heat  flux  in  the  direction  normal  to  the  boundary.  At  Node 
5  in  Figure  2.5,  Equation  2.10  is  used  to  generate  a  difference  equation.  The  term  u^ 
q)pears  in  die  equation  but  does  not  lie  in  the  region.  Hence  the  western  node  is 
Ectitious.  The  non-existent  u^  term  is  eliminated  by  using  the  difference  equation  that 
approximates  the  boundary  condition  which  is  given  as 


'  «(y). 


(2.17) 


The  derivatives  in  the  direction  of  the  outward  pointing  normal  on  die  western,  southern, 
and  lower  boundaries  are  the  negative  of  the  derivative  taken  in  the  direction  positive  to 
the  respective  axis.  On  the  eastern,  nordwm,  and  upper  boundaries  both  derivatives  point 
in  the  same  direction.  Hiis  subde  difference  between  die  definitions  of  the  two  types  of 
derivatives  affects  the  fonn  of  the  boundary  condition  approximations  at  the  respective 
boundaries.  The  three  term  Taylor  series  mcpansion  at  Node  6  and  at  die  fictitious 
western  node  produces  respectively 


“ir  =  «c  - 


du  \  dht 


2  dx*  'c 


(2.18a) 
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Figure  2.S:  Neumann  boundary  condition  on  the  comer  of  a  two  dimensional  region. 

Approximating  the  first  partial  derivative  and  taking  hs  negative  gives  the  discretization 
of  die  derivative  in  the  direction  of  the  outward  pointing  normal  at  die  western  boundary: 

(2.19) 

dn  2k 


The  difference  equation  for  the  Neumaim  boundary  condition  at  Node  5  is 


Solving  for  gives 


2hg(yjJ 

“it  =  p — 


(2.21) 


The  expression  for  is  directly  substituted  into  Equation  2.10  giving 


«s  -4wc  +  2k£  +  =  - 1  (q/»*  +  2Ag(y.,,)). 


(2.22) 


The  order  of  the  error  after  incorporating  the  Neumann  condition  is  still  h^.  This  analysis 
is  extended  to  all  nodes  lying  on  a  Neumann  boundary  of  a  rectangular  region  if  the  grid 


is  uniform. 


c.  The  Mixed  Boundary  Condition 

The  mixed  boundary  condition,  illustrated  in  Figure  2.6,  incorporates  both 
heat  flux  and  temperature  at  the  boundary.  The  equation  governing  this  boundary 
condition  is 


Au  =  8(y)> 


(2.24) 


where  A  and  B  are  functions  defined  on  the  region.  Hw  q^lication  of  Equation  2.10  to 
Node  5  results  in  the  inclusion  of  point  Uw  which  does  not  lie  in  the  region.  This  point 
is  eliminated  by  writing  the  difference  equation  for  the  mixed  boundary  condition  using 
Equation  2.19.  This  gives 


AUf.  +5 


(2.25) 
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Figure  2.6:  Mixed  boundary  conditions  on  die  comer  of  a  two  dimensional  region. 


which  when  solved  for  becmnes 


2Ah  2h,  . 


(2.26) 


Substituting  this  expression  into  Equatitm  2.10  generates 


(2.27) 


The  mixed  boundary  condition  q^lies  when  convection  is  die  mode  of  heat  transfer  at 
die  boundary.  Ckmvection  is  modeled  by  Newton’s  Law  of  Cooling: 


/f[«.-«(x,)]. 


(2.28) 
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where 


•  H  =  the  convection  coefficient. 

•  vu  the  temperature  of  the  surrounding  medium. 

Equation  2.28  can  be  rewritten  as 

Huix)+k^  Hu^  .  (2.29) 

dn 

Equation  2.29  is  a  fonn  of  the  mixed  boundary  condition  stated  in  Equation  2.25  where 
A  equals  H,  B  equals  k,  and  g(y)  equals  Hu.. 

5.  Example:  Solving  the  Heat  Equation  on  a  Two  Dimensional  Chip  Using 
a  Uniform  Grid 

a.  Problem  Statement 

In  this  problem  the  data  provided  in  the  following  subsection  is  used  to 
q>proximate  the  temperature  profile  in  die  two  dimensitmal  ch^  dqiicted  in  Figure  2.7. 
A  uniform  grid  of  interval  length  one  millimeter  is  used  to  accomplish  this  iqiproximation. 

b.  Data 

A  rectangular  chq),  shown  in  Figure  2.7,  has  dimensions  of  four 
millimeters  by  three  millimetos.  The  west^  boundary  of  the  diip  is  held  at  a  ctmstant 
100*’C  (e.g.  a  Dirichlet  boundary  condition).  The  northern  and  southern  boundaries  are 
covered  by  a  perfect  insulator  (e.g.  a  Neumarm  boundary  condititm  with  u.  s  0).  The 
eastem  boundary  convects  to  die  surrounding  medium  (e.g.  a  mixed  boundary  ctmditicm). 
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T  =  100  *C 

oo 

4  =  100  W/mm^ 
k  =  .5  W/mm^ 
H  =  lOW/mm^ 


Figure  2.7:  Set  up  for  two  dimensional  uniform  grid  example. 


The  surrounding  medium  has  a  temperature  of  lOOX.  A  heat  source  of  100 
wattsAnillimeter’  is  present  inside  the  chq>.  The  thermal  conductivity  coefficient  for  tlw 
chip  material  is  equal  to  .5  wattsAniUimetei^.  The  cmvection  coefficient  at  the  eastern 
boundary  is  10  wattsifoiillimetei:’. 

c.  Analysis 

In  Figure  2.7  a  nodal  network  is  illustrated  in  \^ch  only  die  nodes  of 
unknown  temperature  are  listed.  The  temperature  is  given  along  the  western  boundary 
and  therefore  the  nodes  diere  are  not  numbered.  The  perfect  insulator  on  the  north 
boundary  prevents  the  flow  of  heat  in  the  direction  normal  to  die  boundary.  Hie 
expressions  for  die  boundary  conditions  are 
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east  boundary: 

11  =  100, 

west  boundary: 

20ii+i!i  =  2000, 
dn 

north/south  boundary: 

an 

(2.30) 


Node  5  is  the  only  node  whose  difference  equation  is  unaffeaed  by  the 
boundary  conditions.  Its  equation  is  obtained  by  invoking  Equation  2.10 

iij  +  -  4ttj  + 11^  +  tt,  =  -200.  (2.31a) 

Node  4  is  affected  by  the  western  Dirichlet  condition.  The  difference  equation 
here  is  of  similar  form  to  that  given  in  Equation  2.15 

-4ii^  +iij  +«,  =  -300.  (2.31b) 

Nodes  2  and  8  are  affected  by  the  Neumann  boundary  condition.  Their 
equations  respectively  are 


u,  -4ttj  +  iij  +2«5  *  -200, 

2«,  +  II,  -  4«,  ♦  II,  s  -200. 


(2.31c) 


Equation  2.31c  is  of  the  form  given  in  Equation  2.22  after  it  has  been  modified  for  the 
southern  and  nordiem  boundaries,  reflectively. 

Node  6  depends  on  a  mixed  boundary  condition.  Its  equation  is  of  the  form 
given  by  Equation  2.27 
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(2.31d) 


Mj  +  2ttj  -  44ttg  -  -4200. 

The  remaining  nodes  lie  on  the  intersection  of  two  boundaries.  A  combination 
of  the  previously  discussed  equations  is  used  to  generate  the  difference  equations  at  these 
nodes.  They  are 

-4u,  +  Uj  +  2u^  =  -  300, 

2u--44«,  +  2«  =  ^200, 

(2.31e) 

2«^  -  4Uj  +  «,  ®  -  300, 

2ug*  2«, -44«,  =  -4200. 

d.  Solution 

Expressing  Equation  2.31  in  matrix  form  generates  a  sparse  matrix  that 
is  banded  about  the  main  diagtmal 

-4  1  2 

1-4  1  2 

2-44  2 

1  -4  1  1 

1  1-4  1  1 

1  2  -44  1 

2  -4  1 

2  1-4  1 

2  2  -44 

It  is  now  possible  to  invoice  any  of  a  number  of  mediods  to  stdve  the  system.  The 
solution  represents  the  q)proximate  temperature  at  each  node  of  die  grid  with  an  error  of 
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order  and  is  summarized  in  Figure  2.8.  PC-MATLAB*'^,  which  uses  Gaussian 
elimination,  was  used  to  solve  this  system  [Ref.  3:p  3-191]. 
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Figure  2.8:  Example  solution  rounded  to  the  nearest  degree  Celsius. 


B.  FINITE  DIFFERENCE  APPROXIMATIONS  ON  A  NON-UNIFORM  GRID. 

1.  Three  DimenshHial  Analysis 

Sometimes  greater  detail  m  the  twnperature  profile  is  required  for  a  ^lecific 
portion  of  the  region.  This  could  be  accomplidied  by  refining  die  grid  for  the  entire 
region.  However  this  tiqiidly  increases  the  number  of  nodes  in  the  region  and  die 
correqxmding  size  of  the  linear  system  of  equations  diat  must  be  solved.  To  avoid 
uncontrolled  growth  in  the  system  of  equations,  die  grid  is  refined  only  in  the  parts  of  the 
region  where  greater  detail  is  desired.  Figure  2.9  illustrates  a  nodal  network  in  which  the 
greatest  detail  is  obtained  in  the  c«iter  of  die  region  by  ^lecifying  a  smaller  imerval 
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T  =  100  *C 


H 

II 

I-* 

o 

o 

O 


DATA 

q  =  100  W/m* 
k  =  5  W/ffl* 


1.6  meters 


Figure  2.9:  Non-unifoim  grid  super-imposed  onto  a  square  region. 


there.  The  resulting  grid  is  non-uniform.  Unfortunately,  equations  developed  in  the 
previous  section  can  <mly  be  used  for  unifcmn  grid  analysis.  A  more  general  set  of 
equatkms  must  be  derived  ftv  die  non-uniform  grid. 

A  typical  nodal  point  for  a  non-uniform  grid  in  a  diree  dimensional  region  is 
depicted  is  Figure  2.10  widi  die  following  terms  defined 
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«c 

= 

= 

uix.-AX,yj,z^, 

= 

Vm 

= 

uix.,yj-^y,z^. 

H 

= 

M(X,.,y^,2*-AZ), 

s 

= 

tt(Ar.+aax,y^,z^, 

s 

= 

s 

s 

uix,^yp2t-^y^). 

(2.33) 


where  u(x,y,z)  is  temperature  function  for  the  region. 

The  difference  ai^>roximations  for  the  first  partial  derivatives  on  a  non- 
uniform  grid  are  obtained  from  the  three  term  Taylor  series  expansions  about  the  off- 
cemer  noder 


-“^Ic 

+  0[(ax)»], 

‘“^Ic 

+  (otajc)*.^^| 

dx»'c 

“^okAx)*], 

d«| 

+  a[(Ay)’], 

+  okay)*]. 

dai 

'“-s-lc 

+  <7k^)’]» 

-  9»l 

+ ok^)*]- 

(2.34a) 


(2.34b) 


(2.34c) 


From  Equatitm  2.34  die  first  derivative  qiproximations  are  shown  to  be 
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^  U^+(0^  -1)U^-0C^U^ 

a(a  +  1)ax 


0[(ax)*], 


(2.35a) 


^1  =  «N-^(P^-l)«c-PX  ^  ^  r,  ^  1  (2.35b) 

dy'c  P(p^l)Ay 


^1  _  Uf,+(Y‘  -Du^-fu^^ 

^•c  <y(Y  +  1)az 


+  0[(az)*]. 


(2.35c) 


Equation  2.35  is  used  in  the  analysis  of  Neumaim  and  mixed  boundary  conditions  on  the 
non-uniform  grid. 

The  second  derivative  qiproximations  are  also  obtained  from  Equation  2.34: 


^ui  -  2(a  +  l)u^  +  2au^ 

dx*  a(a  +  1)a*x 


+  0(ax), 


(2.36a) 


£tt| 

ay*'<^ 


2ii^-2(p  +  l)«c+2p«j 

P(P  +  l)A*y 


*0(Ay), 


(2.36b) 


7(Y  +  l)A*r 


(2.36c) 


Equation  2.36  is  a  first  order  qrproximation  (i.e  die  order  of  the  error  is  h)  to  die  second 
derivative  of  the  temperature  function  u(x,y;c).  In  contrast,  the  uniform  grid  counterpart 
of  Equation  2.39  given  by  Equation  2.9  is  a  second  order  qiproximation  (i.e.  the  order 
of  the  error  is  h^)  of  the  second  derivative  of  the  temperature  function. 

Using  Equation  2.36,  the  qiproximadcni  to  Poisson’s  Equation  for  heat 
transport  tm  a  non-uniform  grid  becomes 
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Figure  2.10:  A  typical  nodal  netwoik  on  a  non-unifoim  grid  in  three  dimensions. 


<x(a  +  l)A*jt  P(P  +  IM*)' 

y(Y*lWz  2^ 

For  ctmvenience  this  is  rewritten  as 


(2.37) 


(2.38) 
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Equation  2.38  is  applied  to  each  node  to  generate  the  system  of  equations  whose  solution 
approximates  the  temperature  profile  on  a  non-uniform  grid  in  a  rectangular  region. 

2.  Boundary  Conditions 

Boundary  conditions  for  die  non-uniform  grid  are  handled  in  the  same  way 
as  they  were  when  a  uniform  grid  is  used.  If  a  Dirichlet  boundary  condition  is  present, 
the  value  of  the  temperature  of  the  boundary  is  substituted  for  the  qipropriate  node  in 
Equation  2.38. 

If  a  Neumarm  or  mixed  boundary  condition  is  employed,  die  difference  equation 
qiproximations  specified  in  Equations  2.20  and  2.25,  respectively  are  used  and  solutions 
for  the  fictitious  node  are  found.  A  fictitious  node  is  chosen  to  be  at  the  same  distance 
from  the  boundary  as  its  existoit  counterpart  cm  the  opposite  side.  This  allows  uniform 
grid  analysis  cm  the  Neumann  or  mixed  boundary  points.  The  expressions  due  to  a 
fictitious  node  from  the  Neumarm  conditicm  (Equation  2.21)  or  from  die  mixed  conditicm 
(E(]uation  2.26)  are  substituted  for  the  ypropriate  node  in  Eqpiation  2.37. 

3.  Example:  Solving  the  Heat  Eqnaticm  on  a  Two  Dimensional  Chip  Using 
a  Non-Uniform  Grid. 

a.  Problem  Statement 

In  this  example  die  temperature  profile  is  ipproximated  for  a  two 
dimensional  ch^  with  dimensicm  of  4  millimeters  by  4.5  millimeters  using  the  ncm- 
uniform  grid,  boundary  condhicms,  and  data  specified  in  Figure  2.11. 
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T  =  100  C 


q  =  50  W/mm* 
k=  1  W/mm* 


Repeated 
Indices  Reflect 
the  Symmetry 
of  the  Region. 


4  mm 


Figure  2.11;  Set-i^  for  non-unifonn  grid  example. 
b.  Analysis 

The  number  of  equations  in  the  resulting  linear  system  is  reduced  by 
using  the  symmetry  of  the  region.  The  numbering  scheme  of  the  nodes  in  Figure  2.11 
reflects  this  symmetiy.  Throughout  most  of  die  region,  the  grid  is  uniform  and  Equation 
2.10  is  used  to  generate  die  difference  equadmis  that  will  approximate  the  temperature 
profile.  However,  when  Node  10  or  Node  11  is  in  die  center  of  the  nodal  netwoik,  e.g. 
Uc  =  u,o  or  Uc  -  u,t,  there  is  non-unifbnnity  in  the  y  direction.  At  diese  nodes  the  grid 
Imgth  in  the  y  direction  is  1/2  millimeter  to  the  soudi  and  one  millimeter  to  the  north  and 
therefore  ^  =  2.  The  grid  is  sdll  uniform  in  die  x  direction  at  Nodes  10  and  11  and 
dierefore  a  =  1.  Utilizing  Equaticm  2.38,  modified  for  two  dimensions,  and  incoiporating 
the  boundary  condititms  generates  the  following  sparse  matrix  system 
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10  2  8 
1  -10  1  8 

1  -5  4 

2  -5  1 

4  1  -10  1 

2  1  -5 

2 

4 


-3  1 

1  -10  1 
1  -3 

4 

8 


-9  3  2 

3  -18  4 

1  -4  2  1 

1  1  -4 

1  -4 

1  1 


“4 

s 

IS 

k 

<10 

‘n 

*t2 

hi 


-  50 

-  30 

-  25 

-  25 
-30 

-  23 

-  23 

-  30 
-225 

-  73 
-450 

-  50 
-1301 
-150 
-150 


(2.39) 


e.  SolutUm 

The  soluticm  to  Equation  239  is  summarized  in  Figure  2.12.  As  in  the 
previous  example,  PC-MATLAB™  was  used  to  solve  die  matrix  system.  The  results  are 
rounded  to  the  nearest  degree  Celsius. 


d.  Error  of  Approximation 

Recall  diat  die  error  in  die  qiproximatimi  when  using  die  non-unifomt 

grid  is  given 

Enor  B  K  X  Lengdi  of  Sub-interval. 

Since  the  mesh  spacing  is  non-unifbnn,  the  value  diat  represents  the  longest  interval 
length  of  die  grid  is  used  for  die  lengdi  of  die  sub-interval. 
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Figure  2.12:  Solutkm  to  ii(ni>iiiufoiin  grid  example  with  temperatures  rounded  to  the 
nearest  degree  Celsius. 


This  exarrtple  is  revisited  in  Charter  m  udien  the  use  of  ELXPACK  is 


demonstrated. 
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m.  SOLVING  ELUPnC  PROBLEMS  USING  ELLPACK 


ELLPACK  is  a  multi-facetted  system  used  to  solve  elliptic  partial  differential 
equations.  The  ELLPACK  project  originated  in  1976  at  Purdue  University  under  die 
direction  of  John  R.  Rice.  It  continues  under  development  today  but,  as  it  stands,  is  more 
advanced  than  what  is  available  in  current  FORTRAN  libraries.  ELLPACK  gives  an  easy 
way  to  solve  simple  to  moderately  complex  ellj^c  equations.  WMi  a  litde  more  work 
ELLPACK  can  be  used  to  solve  even  harder  i»oblems.  In  order  to  use  ELLPACK  to  its 
fullest  potential  a  fundamental  understanding  of  FORTRAN  is  necessary.  A  detailed 
discussion  of  ELLPACK  is  found  in  Rice  and  Boisvot  [Ref.  4].  This  chapter  will  serve 
as  a  primer  to  the  use  of  ELLPACK  and  will  provide  those  tools  necessary  to  solve  the 
problem  posed  in  Chiqpter  L 

A.  CLASSIFYING  PARTIAL  DIFFERENTIAL  EQUATIONS 

In  order  to  discuss  die  ci^bilities  and  limitatimis  of  ELLPACK  the  means  of 
classifying  partial  differential  equations  must  be  understood. 

1.  The  ElUpUc  Equation. 

The  most  general  form  of  a  linear  second  order  partial  differential  equation 

is  given  by 


♦«,+/««  g. 


(3.1) 
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where  a,  b,  c,  d,  e,  f,  and  g  are  functions  of  x  and  y;  u,  ami  u,  are  first  partial  derivatives 
of  the  function  u(x,y);  and  u„,  u^,  and  u^y  are  second  partial  derivatives  of  u(x,y).  An 
equation  is  said  to  be  elliptic  if 

-  ac  <  0  (3.2) 

for  all  X  and  y  in  the  region  for  which  the  equation  is  defined. 

If  a  =  c  s  1  and  b  =  d  =  e  =  f=0.  Equation  3.1  becomes 

which  is  Poisson’s  equation.  Equation  3.3  is  further  specialized  by  letting  g  s  0.  The 
result  is 


Driiich  is  Lqrlace’s  equation,  hi  Equations  3.3  and  3.4  the  value  for  b^-ac  is  -1.  Hence 
Poisson’s  equatitm  and  Liqrlace’s  equatitm  are  bodi  elliptic. 

2.  The  Self-Acyoint  Equation 

The  property  of  self-adjointness  is  also  used  to  classify  partial  dilffierential 
equations.  Without  going  into  a  great  amount  of  detail,  Equatitm  3.1  is  said  to  be  self- 
adjoint  if 
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where  a,  b,  c,  d,  e,  f,  and  g  are  functions  of  x  and  y;  u,  and  u,  are  first  partial  denvatives 
of  the  function  u(x,y);  and  u„,  u^,  and  Uyy  are  second  partial  derivatives  of  u(x,y).  An 
equation  is  said  to  be  elliptic  if 

h*  —  ac  <  0  (3*2) 

for  all  X  and  y  in  the  region  for  which  the  equatitm  is  defined. 

If  a  -  c  -  1  and  b  =  d  =  esfsO,  Equation  3.1  becomes 

which  is  Poisson’s  equation.  Equation  3.3  is  further  specialized  by  letting  g  s  0.  The 
result  is 


II  +11  =0,  (3A) 

which  is  Liqrlace’s  equatitm.  In  Equations  3.3  and  3.4  die  value  for  b’-ac  is  -1.  Hence 
Poisson’s  equation  and  Lqilace’s  equatitm  are  bodi  dlipdc. 

2.  The  Setf-AtUoint  Equation 

The  property  of  self-adjointness  is  also  used  to  classify  partial  differential 
equations.  Without  going  into  a  great  amtmnt  of  detail.  Equation  3.1  is  said  to  be  self- 
adjoint  if 
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P“„  +  ^«  =  rCxcf), 


(3.9) 


where  p  and  q  are  constant  along  each  side  of  the  region.  Recall  that  u„  is  the  direction 
of  the  outward  pointing  nonnal.  If  a  problem  is  separable,  it  may  be  solved  using  veiy 
fast  and  efficient  solution  techniques. 

4.  Boundary  Conditions 

Partial  differential  equations  are  also  classified  by  boundary  condition  type  as 
discussed  in  Chapter  n.  In  brief  review,  if  p  is  equal  to  zero  in  Equation  3.9  then  the 
boundary  conditions  ate  of  Dirichlet  type.  If  q  is  equal  to  zero  in  Equation  3.9  then  the 
boundary  conditions  are  of  Neumann  type.  If  neither  p  nor  q  are  equal  to  zero  in 
Equation  3.9  it  is  called  a  mixed  boundary  condition.  A  region  may  have  any 
combination  of  these  boundary  conditions. 

In  summary,  the  equations  discussed  in  (Ttuqrter  I  that  are  used  to  model  heat 
tranqxMt  are  second  order,  linear,  and  self-adjoint.  If  eidier  the  Dirichlet,  Neumaim,  or 
mixed  boundary  conditions  are  prescribed,  and  if  the  region  under  investigation  is 
rectangular  then  these  equations  are  also  8q>arable.  The  categories  of  classification 
described  in  this  section  ate  not  exhaustive,  but  diey  are  sufficient  to  continue  the 
discussion  of  the  problem  posed  in  this  paper.  It  should  be  noted  however,  that  once 
mastered,  ELLPACK  can  also  be  used  to  solve  parabolic,  non-linear,  and  other  non¬ 
standard  problons.  For  mote  information  see  Rice  and  Boisvert  [Ref.  4:pp  87-135]. 
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B.  MATRIX  PROPERTIES 


The  matrices  that  result  from  the  discretization  of  elliptic  partial  differential 
equations  have  several  desirable  properties  tfiat  numerical  routines  use  to  their  advantage. 

1.  Sparrity 

When  using  the  Seven  Point  Star  method  to  q}ptoximate  the  temperature 
profile  in  a  three  dimensional  regime  there  are  at  most  seven  nm-zero  elements  per 
equation.  Hence  an  n  by  n  matrix  will  have  at  least  n^-7n  zero  elements.  This 
preponderance  of  zeroes  is  known  as  sparsity. 

2.  Bandedness 

In  the  examples  solved  in  Quqiter  II  it  was  seen  that  die  non-zero  elements 
of  the  matrix  are  confined  to  bands  diat  lie  on  either  side  of  the  main  diagtmal.  The 
bandwidth  for  a  matrix  A  is  defined  as: 

max  1 1  -J  I  for  which  ^  0. 


3.  Symmetry 

Matrix  A  is  said  to  be  symmetric  if  Ag  =  A^j.  In  general,  ell^c  problems 
lead  to  symmetric  matrices  if  die  region  is  symmetric  about  its  center.  For  example, 
Figure  2.9  poses  a  problem  uriiose  linear  system  will  result  in  a  symmetric  matrix. 

4.  Positive  Definiteiiess 

Matrix  A  is  said  to  be  positive  ddinite  if  x^Ax  >  0  for  all  non-zero  x  vectors. 
The  eigenvalues  for  symmetric  positive  definite  matrices  are  teal  and  positive. 
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C.  THE  STRUCTURE  OF  ELLPACK 


ELLPACK  is  an  extoision  of  FORTRAN,  theiefore  FORTRAN  statements  can  be 
mixed  with  ELLPACK  statements.  A  basic  block  of  statements  in  ELLPACK  is  called 
a  segment.  Segments  contain  statements  that  are  used  to  define  the  equations,  domains, 
and  boundary  conditions.  Segments  can  also  invoke  powerful  modules  in  the  ELLPACK 
library  diat  contain  the  routines  that  will  solve  the  problem.  Basic  types  of  ELLPACK 
modules  include: 

•  Discretization  modules  which  create  discrete  qrproximations  to  the  ell^c  problem. 

•  Indexing  modules  which  order  the  linear  equations  and  unknowns  generated  by  the 
discretization  module. 

•  Solution  modules  which  solve  the  syston  of  linear  equations. 

•  Output  modules  which  specify  ELLPACK  generated  ouqnit. 

Once  a  program  is  executed  in  ELLPACK  it  is  converted  the  ELLPACK 
preprocessor  into  a  FORTRAN  program.  At  diis  point  die  program  is  compiled.  At 
execution,  the  program  invokes  modules  firom  the  ELLPACK  library  sfpecified  in  the 
segmem  blocks.  These  modules  are  also  written  in  FORTRAN.  Output  can  be  either 
printed  or  plotted  using  ELLPACK  routines.  Output  may  also  be  displayed  using  any 
means  available  in  ousting  FORTRAN  libraries. 
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D.  ELLPACK  SEGMENTS 


ELLPACK  segments  fall  into  four  basic  groups.  We  describe  some  of  the  segments 
below.  Those  described  are  used  to  model  the  problem  posed  in  Chapter  I.  Many  more 
segments  not  described  here  are  available  in  die  ELLPACK  system  and  are  discussed  in 
detail  in  Rice  and  Boisvert  [Ref.  4:pp.  24-44]. 

1.  Group  One  Segments 

Group  one  segments  define  the  dliptic  problem  and  must  i^jpear  before  any 
groiq>  two  segment.  Group  one  segments  include 

a.  EQUATION  Segment 

The  EQUATION  segment  defines  the  partial  differential  equation.  This 
segment  can  only  be  listed  once  in  die  program.  The  most  general  fonn  of  the 
EQUATION  statement  for  a  problem  in  two  dimensions  is 

±<iexpxes^oa>*UXX  ±  <expressi<m>«UXF  ±  <ex^es^oa>*UTY 
±<expression>«UX  ±  <expre8sion>*UT  ±  <eiqnessiQn>*I/ 

s  <expression>, 

D^ie  <expressi<m>  represents  any  legal,  teal  or  double  jnecision  FORTRAN  arithmetic 
expres»i<m  or  function.  The  ampersand  at  the  end  of  die  first  and  second  lines  in 
Expression  3.10  is  an  ELLPACK  symbol  dutt  indicates  that  the  expiesskm  continues  cm 
die  next  line.  The  self  adjoint  foim  of  Eiqnession  3.10  is 


& 

&  (3.10) 
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±(<cxprcssion>*(/X)X  ±  (<cxpression>*C/y)K  ±  <cxpression>*t/  & 


(3.11) 


=  <expression>. 

By  way  of  example,  the  three  dimensional  form  of  Poisson’s  equation  for  heat  flow  would 
q)pear  in  an  ELLPACK  EQUATION  segment  as 

EQUATION.  UXX  +  UYY  +  UZZ  =  -Q(X.Y,Z  )/K(X,Y,Z ),  (312) 

where  Q(X,Y,Z)  and  K(X,Y,Z)  are  functions  describing  the  material  properties  over  the 
region.  Similady,  Laplace’s  equation  would  iq>pear  as 

EQUATION.  UXX  +  UYY  +  UZZ  =  0.  (3.13) 

An  example  of  an  equation  segment  written  in  self-adjoint  form  is 

EQUATION,  (A(X,YZ)*UX)X+(B(XY;Z)*UY)Y  & 

(3.14) 

♦  (C(X,YZ)*UZ)Z*0. 

where  the  coefficients  A(X,Y,Z),  B(XY,Z),  and  C(X,YZ)  can  vary  or  remain  constant 
over  the  regitm. 

The  ELLPACK  preprocessor  does  not  perform  an  exhaustive  check  to 
ensure  that  the  partial  differential  equation  entered  by  die  user  in  the  EQUATION 
segmoit  is  elliptic.  Furthermore,  some  of  die  modules  require  diat  die  self-adjoint  form 
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of  the  equation  be  used.  It  is  the  responsibility  of  the  user  to  be  aware  of  these 
requirements  in  order  to  effectively  use  die  ELLPACK  system. 

b.  BOUNDARY  Segment 

The  BOUNDARY  segment  specifies  the  location  of  the  boundaries  of  the 
region  and  the  conditions  on  those  boundaries.  The  expression  for  a  boundary  condition 
is  broken  up  into  two  parts,  e.g. 

<condition>  ON  <piecO, 

where  condition  is  of  the  form 

±<expression>*f/Y  ±  <expression>*f/Y  ±  <e:q>ression>*f/  & 

=  <expression> 

and  <piece>  describes  the  location  of  the  boundary.  For  example,  a  Dirichlet  boundary 
condition  where  the  temperature  is  100**  on  an  eastern  boundary  where  x  s  0  would 
iqipear  as 

BOUNDARY  .  U  =  100  ON  X  =  0.  (3.16) 

A  Neumann  boundary  condition  where  a  perfect  insulator  is  placed  on  the  southern 
boundary  where  y  s  0  would  qjpear  as 

BOUNDARY  .  UY  ^  0  ON  7  =  0.  (317) 
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A  mixed  boundary  condition  modeling  convection  at  z  =  0  would  have  the  form 

BOUNDARY  .  10*UZ  -  U  =  -H*TINF  ON  Z  =  0,  <3.18) 

where  TINF  is  the  ambient  temperature  of  the  fluid  region. 

The  preceding  examples  represent  a  fraction  of  ELLPACK’s  boundary 
assigiunent  capabilities.  Desci^ons  for  defining  complex  boundary  conditions  are 
discussed  in  Rice  and  Boisvert  [Ref.  4:pp.  29-32]. 

2.  Group  Two  Segments 

Group  two  segments  specify  executable  ELLPACK  modules  and  may  appear 
more  than  once  in  the  ELLPACK  program.  In  general,  they  qrecify  numerical  methods 
to  solve  the  ellqitic  problem  and  diey  must  be  placed  in  a  specific  ordm  for  the  program 
to  run  ptoperiy,  e.g.  GRID,  DISCRETIZATION,  INDEXING,  SOLUTION,  and  OUTPUT. 

0.  GRID  Segment 

The  GRID  segment  defines  a  rectangular  grid  diat  is  placed  over  the 
domain.  The  general  form  of  a  GRID  segment  statement  is 

<n>  <vatiable>  POINTS  <pointlist>. 


where 

•  <n>  indicates  the  number  of  points, 

•  <variable>  indicates  the  variable  involved  (X,  Y,  or  Z), 


43 


•  <point  list>  indicates  the  list  of  grid  coordinates  in  increasing  order. 

For  example  one  may  specify 

GRID.  5  X  POINTS  0..  A,  .5,  .6,  1.0 
5  Y  POINTS  0.,  .3,  .5,  .7,  1.0 

The  result  would  be  a  rectangular  grid  with  lines  at 

X  -  0.0,  jc  =  .4,  X  »  .5,  jf  =  .6,  X  =  1.0, 
y  =  0.0,  y  =  .3,  y  =  .5,  y  *  .7,  y  =  1.0. 

If  a  rectangular  domain  was  specified  by  the  BOUNDARY  segment  then  the  following 
grid  could  be  defined  in  the  following  ^xscial  form: 


GRID.  7  X  POINTS 
7  Y  POINTS 


(3.20) 


In  Equation  3.20  die  poim  list  has  been  omitted.  This  causes  ELLPACX  to  generate  a 
unifoim  grid.  More  complex  grid  definitions  are  available  and  discussed  in  Rice  and 
Boisvert  [Ref.  4.*pp.  32-35]. 

b.  DISCRETIZATION  Segmeni 

The  DISCRETIZATION  segment  names  die  module  that  is  to  be  used  to 
form  the  linear  syston  of  equadons  that  will  qiproximate  die  solution  to  the  elliptic 
equation.  The  primaiy  discretizadon  modules  used  in  this  pqier  are: 
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(1)  5-POINT  STAR  Module  This  module  generates  difference  equations 
using  the  ordinary  second  order  central  difference  approximations  that  were  discussed 
earlier.  The  following  restrictions  qrply  when  using  diis  module: 

•  The  domain  must  be  two  dimensional. 

•  The  domain  must  be  rectangular. 

•  The  grid  size  must  be  at  least  3  by  3. 

•  There  can  be  no  u^  terms  in  the  equation. 

•  There  can  be  no  tangential  derivative  cmnponents  in  the  boundary  conditions. 

(2)  7-POINT  STAR  Module  This  module  is  the  diree  dimensional 
counterpart  of  the  S-POINT  STAR  module.  However,  die  following  additional  restrictions 
apply: 

•  The  region  must  be  three  dimensional. 

•  The  equatirm  must  be  self-adjoint  (this  implies  diat  there  may  be  no  u,^,  u„,  or  u,, 
terms  in  the  equation). 

e.  INDEXING  Segment 

INDEXING  modules  reorganize  the  system  of  equations  generated  by  the 
DISCRETIZATION  segmoit  by  renumbering  the  equations  and  unknowns.  If  no  module 
is  qiecified  in  the  main  program  then  dM  ELLPACK  system  will  invoke  the  AS  IS 
module  by  default.  Several  odier  indexing  modules  are  described  in  Rice  &  Boisvert 
[Ref.  4:p.  37],  but  the  AS  IS  module  is  die  only  one  used  in  this  investigation. 
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(1)  AS  IS  Module  The  AS  IS  module  indexes  the  equations  as  they 
were  generated  by  the  discretization  module.  For  example,  if  the  nodes  in  a  three 
dimensional  region  are  designated  by  (i jjk:)  at  a  point  whose  coordinates  were  (x^y^  z^), 
then  the  AS  IS  module  would  designate  the  index  1  to  node  (1,1,1),  the  index  2  to  node 

(2.1.1) ,  and  so  forth.  If  there  ate  NX  grid  points  defined  in  die  x  direction,  then  the  node 

(1.2.1)  is  assigned  the  index  NX+1.  If  NY  grid  points  are  defined  in  the  y  direction,  then 
the  node  (1,1,2)  is  be  assigned  the  index  (NX)(NY)  +  1.  In  general,  the  node  (ijjc)  is 
assigned  the  index: 


Index  Value  =  i  +NX*((/  "  D  *NY*(k  -  1))  (3.21) 

where  indicates  mult^Ucation  in  FORTRAN.  The  INDEXING  segment  need  not 
appeta  in  the  ELLPACK  program  for  the  AS  IS  module  to  be  invoked. 

d,  SOLUTION  Segment 

The  SOLimON  segment  ^lecifies  the  module  that  will  be  used  to  solve 
the  linear  system  diat  was  generated  by  the  DISCREn2^TION  segment.  Detailed 
information  on  ELLPACK  solution  modules  is  available  in  Rice  and  Boisven  [Ref.  4:pp. 
178-217].  Below  is  a  brief  descr^on  of  a  few  of  die  modules  used  for  solving  systems 
of  linear  equations. 

(1)  JACOBI  SI  (CG)  Module  This  module  uses  iseiative  methods  to 
solve  a  system  of  equatkms.  Convergoice  is  accelerated  by  using  semi-iteration 
(conjugate  gradient)  techniques.  Several  optional  parameters  can  be  set  and  are  discussed 
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in  Rice  and  Boisvert  [Ref.  4:pp.  183-184].  Some  of  these  parameters  are  summarized  in 
Table  3.1.  If  these  parameters  are  not  set,  ELLPACK  will  use  the  default  settings. 


Table  3.1:  Parameters/Default  Settings  for  Jacobi  SI(CG)  and  SOR  Methods. 


1  PARAMETER 

MEANING  OR  USAGE 

DEFAULT 

ITMAX 

Maximum  number  of  iterations. 

100 

ZETA 

Tolerance  level  in  stopping  test. 

5.E-6 

CME 

Initial  estimate  of  largest  eigenvalue  of  the  Jacobi 
matrix. 

0.0 

SME 

Initial  estimate  of  smallest  eigenvalue  of  the 
Jacobi  matrix  for  Jacobi  SI  method. 

0.0 

FF 

Adaptive  procedure  damping  factor. 

0.75 

OMEGA 

Over  relaxation  parameter  for  SOR  and 
SYMMETRIC  SOR  methods. 

1.0 

SPECR 

Initial  estimate  of  qiectral  radius  of  die 
SYMMETRIC  SOR  matrix. 

0.0 

BETAB 

Initial  estimate  of  the  spectral  radius  of  the  LU 
matrix  in  SYMMETRIC  SOR  methods. 

.25 

(2)  SOR  Module  This  module  solves  a  system  of  linear  equations 
iteratively  using  over-relaxation  techniques  to  accelerate  the  convergence.  As  with  the 
JACXJBI  SI  (CO),  the  module  allows  die  user  to  select  several  parameters.  If  these  are 
not  set,  the  module  automatically  uses  die  default  values  indicated  in  Table  3.1. 

(3)  SPARSE  LDLT  Module  This  module  solves  a  system  of  sparse 
linear  equatimis  by  ctmverting  die  equations  to  sparse  storage  and  then  using  sparse  Oauss 
elimination  widi  column  pivoting. 
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(4)  BAND  GE  Module  Hiis  module  solves  a  real  banded  system  of 
linear  equations  using  LU  factorization  and  Gaussian  elimination  with  scaled  partial 
pivoting. 

e.  OUTPUT  Segment 

The  OUTPUT  segment  specifies  various  kinds  of  output  generated  from 
the  computations.  The  basic  form  of  the  statement  is 

<type>  (<fonctiott>), 

where  <type>  is  a  keyword  diat  prescribes  the  type  of  ouqmt  desired  and  <functi(Mi>  is 
the  function  from  which  the  output  was  generated.  For  example  the  statemoit  PLOT(U) 
in  tiw  OUTPUT  segmem  will  provide  a  ccaitour  plot  of  the  function  U  which  is  being 
used  to  describe  the  temperature  fidd.  The  statement  TABLE(U)  will  print  a  table  of  the 
fiitKtion  U  at  die  grid  points.  Odier  possibilities  are  available  and  are  described  in  detail 
in  Rice  and  Boisvert  (Ref.  4.*pp.  43-44].  Ouqait,  however,  is  not  limited  to  ELLPACK 
modules.  Any  output  routines  that  are  written  by  die  user  or  that  are  available  in  external 
libraries  mi^  be  invoked  from  FORTRAN  segments. 

3.  Groap  Three  S^mente 

Group  diree  segments  may  occur  anywhere  in  the  program  and  as  many  times 
as  are  required.  They  include: 
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a.  DECLARATIONS  Segment 

The  DECLARATIONS  segment  allows  the  user  to  declare  variables  that 
will  be  used  later  in  FORTRAN  segments. 

b.  GLOBAL  Segment 

The  GLOBAL  segmem  is  used  to  make  variables  generated  by  ELLPACK 
available  for  use  in  FORTRAN  segments. 

c.  OPTIONS  Segment 

The  OPTIONS  segment  sets  various  switches  that  control  the  ELLPACK 
program.  A  detailed  list  of  options  is  provided  in  Rice  and  Boisvert  [Ref.  4:pp.  41-42]. 
It  is  recommended  that  dM  OPTIONS  segment  be  placed  early  in  the  program.  OPTIONS 
segmem  modules  available  include: 

(1)  TIME  Module  Requests  a  printed  summary  of  the  execution  times 

of  each  module. 

(2)  MEMORY  ModtUe  Requests  a  jninted  summary  of  the  memory 
used  in  the  ELLPACK  tun. 

(3)  LEVEL  s  K  Module  Sets  levels  (0  -  5)  of  desired  printed  output. 
These  levels  are  summarized  in  Table  3.2.  If  the  level  is  not  specified  in  the  OPTIONS 
segment,  die  default  (LEVEL  =  2)  will  be  set. 
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Table  3.2:  Amount  of  Printed  Material  Invoked  by  LEVEL  Module 


LEVEL 

DATA  OUTPUT 

1 

Requests  no  output  form  modules  excqit  for  fatal 
error  messages. 

2 

Requests  minimal  output  (default). 

■a 

Greater  Amounts  of  intermediate  ouq>ut.  Used  for 
debugging. 

d.  FORTRAN  Segment 

The  FORTRAN  segment  contains  lines  of  FORTRAN  code  provided  by 
the  user.  It  is  the  FORTRAN  segment  that  gives  the  user  the  power  to  modify 
ELLPACK  routines  and  obtain  solutions  to  more  difficult  problems. 

c.  MisceOaneous  Group  Three  Segments 

Also  considered  as  a  group  three  segment  is  the  symbol  and  the  blank 
line.  The  symbol  placed  in  column  one  of  die  code  indicates  a  comment  line.  A 
blank  line  may  be  inserted  anywhere  in  the  ELLPACK  program  as  desired  by  the  user 
and  has  no  effect  on  die  program  execution. 

4.  Group  Four  Segments 

Grotq>  four  segments  must  qipear  after  all  odier  segments  of  groups  one,  two, 

or  three. 
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a.  SUBPROGRAMS  Segment 


The  SUBPROGRAMS  segment  provides  a  place  for  the  user  to  insert 
complete  FORTRAN  functions  and  subroutines  that  are  called  from  FORTRAN  segments. 
This  segment  must  be  placed  at  the  end  of  the  ELLPACK  program  just  before  the  END 
segment. 

b.  END  Segment 

The  END  segment  specifies  the  end  of  the  FORTRAN  program. 

E.  SAMPLE  ELLPACK  PROGRAMS 

This  section  uses  the  examples  solved  in  Quarter  n  as  models  to  build  sample 
ELLPACK  programs. 

1.  Sample  Program  One:  Finding  (he  Temperature  Distribution  on  a  Two* 
Dimensional  Domain  with  Various  Boundary  Conditions 
This  example  provides  a  line  by  line  descrqMion  of  an  ELLPACK  program 
that  will  solve  the  problem  posed  in  Section  A.5  of  Chqiter  U. 

It  is  good  practice  to  invoke  the  OPTIONS  segment  at  die  beginning  of  an 
ELLPACK  program.  In  order  to  invoke  die  TIME  and  MEMORY  modules  write: 

OPTIONS.  TIME  $  MEMORY 

The  ’$’  symbol  place  between  TIME’  and  ’MEMORY’  is  equival«it  to  combining  two 
lines  of  programming.  The  keyword  ’OPTIONS’  i^ch  marks  die  segment  block  starts 
in  column  one  and  is  followed  by  a  period.  The  abbreviation  OPT.  is  also  recognized  by 
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ELLPACK  as  the  beginning  of  the  OPTIONS  segment.  In  general,  ELLPACK  will 
recognize  the  first  three  letters  of  any  segment  name. 

Next  the  equation,  boondaiy  conditions,  and  grid  are  defined: 


EQUATION. 

UXX  +  UYY 

=  -200. 

BOUNDARY. 

U 

=  100. 

ONX 

10*U  +  UX 

=  1000. 

ONX 

UY 

=  0. 

ON  Y 
ON  Y 

GRID.  4  X  POINTS 

3  Y  POINTS 


The  pacing  within  each  segment  is  established  with  ease  of  reading  in  mind  and  does  not 
affect  the  execution  of  the  ELLPACK  program.  In  the  BOUNDARY  segment  dieie  is 
no  <condition>  statement  preceding  the  code,  *ON  Y  »  2.*.  This  is  a  time  saving  feature. 
When  a  <condition>  statement  does  not  precede  a  <piece>  statemoit  in  the  BOUNDARY 
segment,  ELLPACK  uses  die  previous  <C(»idition>  statement.  In  the  GRID  segment  the 
<point  list>  statement  is  missing  indicating  diat  a  uniform  grid  is  superimposed  onto  the 
region. 

ELLPACK  now  has  die  infoimadtni  necessary  to  invoke  a  discretization 

routine: 


DISCRETIZATION.  5  POINT  STAR 

Since  the  proUem  is  two  dimensional,  die  5  POINT  module  is  used.  For  three 
dimensional  pnfolems,  we  use  the  7  POINT  STAR  module. 
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At  this  point  a  solution  method  is  specified: 

SOLUTION.  BAND  GE 

The  BAND  GE  module  requires  a  large  amount  of  memory  but  woiks  quite  well  as  long 
as  the  matrix  is  small.  For  large  matrices  iterative  methods  are  recommended. 

All  that  remains  is  an  output  specification.  For  this  problem,  a  table  of  data 
wiU  be  requested: 

OUTPUT.  TABLE(U) 

Finally  the  END  segment  is  invoked  to  made  die  end  of  the  ELLPACK 

program. 

This  short  ELLPAOC  program  accomplishes  in  11  lines  what  an  equivalent 
FORTRAN  program  would  require  hundreds  of  lines  to  accomplish.  In  reality  the 
ELLPACK  program  is  converted  to  a  rather  bulky  FORTRAN  program.  However,  the 
ease  in  which  ELLPACK  modules  are  invdeed  attest  to  ELLPACK’s  usefulness  in  solving 
elliptic  equations.  The  ouqnit  for  this  problem  will  verify  the  solutions  obtained  earlier 
in  Chi^er  n. 

2.  Sample  Program  Two:  Solving  the  Heat  Equation  on  a  Two  Dimensional 
Chip  Using  a  Non*uniform  Grid 

This  mcample  lists  an  ELLPACK  program  used  for  solving  the  non-uniform 
grid  problem  posed  in  Section  B  of  Chiqxer  n.  The  program  is  listed  on  the  following 
page. 
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OPTIONS. 

TIME  $  MEMORY 

EQUATION. 

UXX  +  UYY  s  -50. 

BOUNDARY. 

A(Y)*U  +  B(Y)*UX  *  C(Y)  ON  X 

ON  X 

GRID. 

5  X  POINTS 

7  Y  POINTS  0.,  .5,  1.,  1.5,  2.5,  3.5,  4.5 

DISCRET. 

5  POINT  STAR 

SOLUTION. 

BANDGE 

OUTPUT. 

PLOT(U) 

SUBPROGRAMS. 

REAL  FUNCTION  A(Y) 
A  *0.0 

IF(Y.OE  1.5)  A*  1.0 

RETURN 

END 

REAL  FUNCTION  B(Y) 
B  *  1.0 

IF  (Y  .OE  1.5)  B  *  0.0 

RETURN 

END 

REAL  FUNCTION  C(Y) 
CaO.O 

IF  (Y  .OE  1.5)  C  *  100.0 

RETURN 

END 

END. 
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This  example  demonstrates  the  use  of  simple  FORTRAN  functions  to  model 
boundary  conditions  that  are  slightly  more  complex  than  those  previously  posed.  Recall 
that,  in  the  problem,  on  the  x  boundary  there  is  a  perfect  insulator  up  to  y  =  l.S.  The 
equation  that  governs  the  boundary  condition  on  this  segment  of  the  x  boundary  is 

|i=0. 

dn 

where  n  is  the  outward  pointing  normal.  Above  y  =  1.5  the  boundary  simply  is  u  =  100. 
The  <condition>  statement  for  the  x  boundary  in  die  BOUNDARY  segment  uses  the 
FORTRAN  functions  A(Y)  and  B(Y)  as  variable  coefficients  and  the  FORTRAN  function 
C(Y)  as  a  variable  ri^t  hand  side  to  accurately  depict  both  boundary  conditions  along 
X  =  0  in  a  single  boundary  equation. 

Additional  features  demonstrated  in  this  example  are  the  ELLPACK  PLOT 
module  invoked  in  the  OUTPUT  segment  and  the  use  of  die  SUBPROGRAM  in  which 
all  FORTRAN  functions  and  subroutines  are  placed. 

F.  LIMITATIONS  OF  ELLPACK 

Two  majorTimitations  of  the  ELLPACK  system  preclude  an  attempt  to  solve  the 
problem  posed  in  Chi^er  I.  First  ELLPACK  requires  that  a  three  dimensional  domain 
be  a  box.  Figure  1.4  depicts  a  chip  mounted  on  a  substrate  in  a  configuration  diat  is  not 
a  box.  Current  ELLPACK  routines  are  unable  to  solve  for  this  geometry.  Secondly, 
ELLPACK  routines  do  not  accommodate  a  region  in  which  two  materials  with  different 
thermal  properties  come  into  physical  comact.  Chqners  IV  and  V  develop  methods  and 
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equations  to  be  incoiporated  into  FORTRAN  and  SUBPROGRAM  segments.  The 

methods  are  used  to  overcome  the  specified  limitations  and  enable  ELLPACK  to  solve 
the  problem. 


IV.  EQUATIONS  ALONG  A  CONVECTIVE  INTERFACE 


A.  GEOMETRIC  CONSIDERATIONS 

To  solve  three  dimensional  elliptic  problems  using  ELLPACK,  the  region  under 
investigation  must  be  a  box.  This  restriction  precludes  the  use  of  ELLPACK  to  solve  the 
problem  of  Charter  I.  As  a  technique  to  solve  the  problem  we  consider  a  region  that  is 
not  a  box,  as  illustrated  in  Figure  1.4,  and  enclose  it  in  a  box.  The  equations  that  govern 
the  temperature  profile  for  the  subregions  within  the  box  can  dten  be  creatively 
constructed  into  a  single  ELLPACK  expression  over  the  box. 

Figure  4.1  depicts  this  technique  and  establishes  three  subregions  that  then  compose 
the  focus  of  a  solution.  Subregion  1  is  die  cfa^  which  contains  a  heat  source.  Subregion 
2  is  the  substrate  which  contains  no  heat  source.  Subregion  3  is  an  ambient  temperature 
fluid  region  to  which  the  heat  generated  in  the  ch^  is  transfnred  via  convection.  The 
combined  regions  form  a  rectangular  box  as  required  by  ELLPACK.  Recall  from  Chiqiter 
I  the  variables  which  wiU  be  used  diroughout  this  discussion: 

•  k,:  Thermal  conductivity  coefficient  for  each  subregion  (note  that  k,  for  die 

ambient  temperature  fluid  region  is  not  defined). 

•  hj'.  Convective  coefficient  along  the  subregion  boundaries  where  convection  is  the 

mo^  of  heat  transfer. 

•  4*  Heat  source  for  each  subregion  (the  values  of  qj  and  q,  for  die  substrate  and 

the  ambient  temperature  fluid,  respectively,  are  equal  to  zero  by  die  problmn 

definition). 
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•  u.:  Ambient  temperature  of  Subregion  3. 

•  T,:  The  thickness  of  the  chip. 

•  Tj:  The  thickness  of  the  substrate  (Note  Tj  «  T,). 

•  L,:  The  length  of  the  ch^. 

•  L,:  The  width  of  the  chip. 

•  L:  The  length  and  width  of  the  substrate. 

The  following  assumptions  axe  made: 

•  The  primary  mode  of  heat  transfer  from  Subregion  1  to  Subregion  2  is  conduction. 

•  The  primary  mode  of  heat  transfer  from  Subregion  1  to  Subregion  3  is  convection. 

•  The  primary  mode  of  heat  transfer  from  Subregion  2  to  Subregion  3  is  convection. 

•  The  ambitmt  temperature  duoughout  the  fluid  in  Subregion  3  is  constant. 

•  The  ctmvection  coefficioit  is  constant  for  all  convective  heat  transfer  surfaces. 

B.  THE  ELLPACK  EQUATION  SEGMENT  FOR  THE  MODIFIED  REGION 
Three  different  elliptic  equations  model  the  temperature  profile  for  the  three 
subregions.  Temperatures  in  the  diq)  are  governed  by  Poisson’s  equation 


**  n 


(4.1) 


iKdiere  is  the  heat  generated  inside  die  chq).  In  the  substrate  the  temperature  profile  is 
governed  by  Liqilace’s  equation 
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(4.2) 


In  the  fluid  region  the  temperature  is  known,  e.g. 

u  =  .  (4.3) 

Equations  4.1, 4.2,  and  4.3  can  be  combined  into  a  single  general  equation  written  in  self- 
adjoint  form  as  per  ELLPACK  requirements: 


iAOc,y^)u^  I  *  (A(x,y^)u^  +  (A(x,y^)uX  *  B(x,yj)u  =  Cix,y^),  (4.4) 


Figure  4.1:  Three  dimensional  rectangular  legicm  subdivided  into  three  subregions. 
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where  the  coefficients  A(x,y^),  B(x,y^),  and  C(x,y;e)  are  constants  within  their 
respective  subregions.  Table  4.1  is  a  summary  for  the  coefficient  values  in  the  three 
subregions. 


TABLE  4.1:  SUMMARY  OF  EQUATION  COEFFICIENT  VALUES 


These  variable  coefficient  expressions  can  be  defined  as  FORTRAN  functions  that  assign 
qjpropriate  values  based  on  the  subregion  in  which  the  node  lies.  The  FORTRAN 
functions  are  included  in  die  SUBPROGRAM  segment  of  the  ELLPACK  program.  A 
FORTRAN  function  that  would  describe  die  coefficient  C(x,y^)  can  be  written  as: 


REAL  FUNCTION  C(X,YZ) 

REAL  Kl,  LI,  L2 

COMMON  T2,  Kl,  LI,  L2,  Ql,  UINF 
C*0.0 

IF  (Z  .LT.  T2)  RETURN 
C  =  UINF 

IF  (X  US.  Ll/2.  J\ND.  Y  .LE.  L2/2)  C  =  -Ql/Kl 

RETURN 

END 
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C.  THE  ELLPACK  BOUNDARY  SEGMENT  FOR  THE  MODIFIED  REGION 
The  ELLPACK  BOUNDARY  segment  for  the  modified  region  is  set  up  using  the 
same  techniques  used  in  previous  section  to  handle  the  EQUATION  segment.  There  are 
six  boundaries  to  consider.  These  are  depicted  in  Figure  4.2.  For  example,  for  the  upper 
boundary  on  the  top  of  the  box  in  the  area  occupied  by  the  chip,  heat  convects  to  the 
surrounding  fluid  medium.  Recall  that  convection  is  modeled  by  Newton’s  Law  of 
Cooling  which,  on  the  upper  boundary  of  a  region,  generates 

hu  *ku^  =  hu^  .  (4.5) 

On  the  top  of  the  box,  in  the  area  not  occupied  by  the  ch^,  the  boundary  is  governed  by 
the  Dirichlet  condition 


«  =  .  (4.6) 

Equations  4.5  and  4.6  can  be  combined  in  the  following  general  form 

FUl(;c^)u^  *FU2ix,y)u  =  FU2{x;y)u^  ,  (4.7) 

where  FUl(x,y)  and  FU2(x,y)  are  functions  that  establish  the  value  of  the  coefficients 
based  on  die  location  of  the  node  within  the  upper  boundary.  As  in  the  EQUATION 
segment,  these  expressions  ate  written  as  FORTRAN  functions  and  inserted  in  the 
SUBPROGRAM  segment  of  die  ELLPACK  program. 
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Easum  Boundary 


Nmthem  Boundary 


tapper  Boundary 


Figure  4.2:  Boundary  conditions  for  region  depicted  in  Figure  4.1. 


D.  EQUATIONS  ALONG  THE  CONVECTIVE  INTERFACE 

After  the  EQUATION  and  BOUNDARY  segmoits  are  correctly  coded  the 
ELLPACK  program  is  executed.  ELLPACK  discretizes  the  problem,  as  defined  in  the 
box,  and  solves  for  the  resulting  linear  system.  Unforturutely,  die  solution  to  this  system 
is  an  incorrect  representation  of  the  temperature  profile  for  the  region.  The  reason  for  the 
erroneous  results  is  that  die  convective  heat  transfo’  has  not  been  modeled  for  the  nodes 
that  lie  on  the  interfaces  internal  to  the  box  where  the  ch^  and  substrate  come  in  contact 
with  each  other  and  with  the  fluid  region.  The  internal  convective  boundary  between  die 
fluid  regicm  and  solid  regitms  is  lefetred  to  as  a  convective  interface.  If  the  fluid  region 
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lies  to  the  east  of  die  chq)  or  substrate,  then  the  interface  will  be  referred  to  as  an  eastern 
convective  interface,  and  so  forth. 

The  solution  can  be  corrected  by  replacing  the  ELLPACK  generated  equations  with 
equations  that  model  the  convection  process  for  the  nodes  that  lie  along  the  convective 
interface.  Recall  that  the  convective  boundary  condition  is  modeled  by  Newton’s  Law 
of  Cooling.  On  an  east  or  west  facing  convective  boundary  Newton’s  Law  of  Cooling 
is  written  as 


(4.8) 

where  n  is  the  outward  pointing  normal  along  the  boundary.  Recall  further  that  the 
outward  pointing  normal  derivative  is  not  the  same  as  the  regular  derivative  on  a  given 
boundary  or  interface.  On  a  western  boundary  the  outward  pointing  normal  derivative 
points  in  the  negative  x  ditectitm.  Therefore,  on  a  western  boundary 


du  ^  Bu 
Bn  Bx 


(4.9) 


Using  the  tegular  derivative,  Newton’s  Law  of  Cooling  on  the  western  convective 
boundary  becomes 


Equation  4.10  can  be  rewritten  as 


k^-hu^-hu^,  (4.11) 

which  then  appears  in  ELLPACK  foimat  as 

K*UX  -H*U  »  -H*UINF.  ("^12) 

The  considerations  discussed  here  must  also  be  applied  at  die  southern  and  lower 
boundaries.  For  eastern,  northern,  and  upper  boundaries  the  derivative  in  the  direction 
of  the  outward  pointing  normal  is  die  same  as  the  regular  derivative.  Newton’s  Law  of 
Cooling  at  an  eastern  convective  boundaiy  is 

(413) 

ifriiich  then  is  rewritten  as 

+hu  ^  hu^  ,  (4.14) 

and  translated  into  an  ELLPACK  mqnession  as 

K*UX  *H*U  «  T*UINF.  (415) 
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It  is  now  possible  to  leplace  the  linear  equations  for  all  nodes  that  lie  on  eastern  and 
western  convective  interfaces  with  equations  that  model  the  convection. 

Consider  an  eastern  convective  interface.  Recall  from  Chapter  n  that  for  a  nodal 
point  lying  on  a  Neumann  or  mixed  boundary,  the  grid  is  uniform  in  the  direction  normal 
to  the  interface.  This  is  true  because  a  fictitious  point  was  introduced  when  the  seven 
point  nodal  equation  for  a  non-uniform  grid  was  invoked.  The  fictitious  point  was  chosen 
so  that  it  was  the  same  distance  from  the  interface  as  its  non-fictitious  counterpart.  Thus 
a  =  1  on  the  boundary  node.  Substituting  this  into  Equation  2.39  generates  the  equation 


- «_  + - u„  + - u„ 

TiLXf  ^  P  (P  +  l)(Ay)*  -id*  1)(AZ)* 

(  \  1  1  'I  1 

-  I  __  +  ■  +  ____  III  +  f/ 

P(Ay>*  j  Ktxf  ^ 

. _ ! _ _ ! _ u,--±. 

(p  +  l)(Ay)*^  (Y+IXaz)*^  2k 


(4.16) 


On  tlw  eastern  convective  interface  die  nodal  point  Ug  is  fictitious  and  must  be  eliminated 
using  the  convective  boundary  condition  given  by  Equation  4.13.  Using  the  central 
difference  iqipioximations  of  the  first  derivative  on  a  uniform  grid,  Equation  4.13  is 


rewritten  as 


which  when  solved  for  1%  becomes 


«£  =  -  “c  )  -  “nr  • 

Substituting  Equation  4.18  in  Equation  4.16  yields 


Equation  4.19  is  used  to  rq>lace  the  equations  diat  were  originally  set  by  ELLPACK  for 
nodes  falling  in  an  eastern  ctmvective  interface. 

To  write  a  similar  equation  on  a  western  convective  interface.  Equation  4.10  is 
rewritten  using  the  central  differaice  formula  for  the  fost  derivative 


which  when  solved  for  u^  becomes 


(4.20) 
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(4.21) 


Note  that  exchanging  %  and  in  Equation  4.21  gives  the  same  results  that  were 
obtained  in  Equation  4.18.  Substituting  Equation  4.21  into  Equation  4.19  gives 


1  ^  1  ^  1 
(txf  ®  P(P  +  1)(a>)^  "  Y(Y  +  1)(a2)***‘' 


i-fi^^V-J _ L.  u, 

^  ^  J  P(AY)* 


i  X  1  A 

— - + - U,  =  -_.!+ _ 2 

(P  +  IKay)*  (Y  +  IKaz)*  ^  Tl  2  AX 


(4.22) 


It  is  not  surprising  that  Equation  4.22  is  the  same  as  Equation  4.19  when  u^  is  substituted 


A  similar  derivation  for  a  northern  convective  interface  generates 


o(a  +  lKAx)*  *  y(Y  + IKaz)***'' 


''  > 

-  ! + -L-fi  + — i—  u  * -1—u 

a(Ax)*  (ay)^(  k  j  y(az)*  j  (AY)*  * 

f 

^ _ _1  ^  ^  1  _ _ 1  ^ 

(a  +  lXAxf^  *  (Y  +  IXat)*"^  ~  '  1^2  "17 


(4.23) 
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The  equation  for  the  southern  convective  interface  is  obtained  by  substituting  u^  for  Us 
in  Equation  4.23. 

Finally  on  an  upper  convective  interface  the  nodal  equation  becomes 


The  equation  tm  a  lower  convective  interface  is  generated  by  substituting  u^  for  u^.  in 
Equation  4.24. 


E.  EQUATIONS  AT  NODES  WHERE  TWO  OR  MORE  CONVECnVE 
INTERFACES  INTERSECT. 

Consider  the  hypothetical  region  in  Figure  4.3  which  is  a  cross  sectiorud  slice  along 
the  z  ajtis  of  a  three  dimensional  regitm.  Subregion  1  is  a  solid  material  with  a  heat 
source.  Subregitm  2  is  an  ambient  temperature  fluid  region.  The  mechanism  for  heat 
transfer  along  the  interface  is  convecticm.  ELLPACK  generates  the  correct  equations  for 
Nodes  1  10x1  9  since  dwse  nodes  fall  on  the  boundary.  The  equations  at  Nodes  2  and  6 
must  be  rq>laced  by  Equation  4.9  which  models  die  eastern  convective  interface.  The 
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Figure  4.3:  Two  dimensional  region  depicting  intersections  between  convective 
interfaces. 


equations  for  Nodes  4  and  8  must  be  replaced  with  Equation  4.23  which  models  the 
northern  convective  interface. 

The  remaining  nodes  lie  at  the  intersection  of  two  convective  imerfaces.  At  Node 
5  the  intersection  is  ctnivex  in  nature  with  re^ct  to  Subregion  1.  At  Nodes  3  and  7  the 
intersection  is  concave  in  nature  widi  re^ct  to  Subregion  2.  These  basic  intersections 
must  be  treated  differently. 

When  setting  up  the  seven  point  nodal  equation  at  Node  5,  two  fictitious  points,  u^ 
and  0,4,  are  introduced  in  the  expression.  The  fictitious  nodes  are  substituted  with 
expressions  derived  from  Newton’s  Law  of  Cooling.  The  expressitm  for  r%  is  shown  in 
Equation  4.18.  By  a  similar  derivatkm  the  expression  for  u,,  is 
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interfaces. 


When  setting  up  the  seven  point  nodal  equation  at  Nodes  3  and  7,  no  fictitious 
points  are  introduced  into  the  expression.  This  suggests  that  no  modifications  need  be 
made  to  the  ELLPACK  generated  equations  for  these  nodes.  However,  these  nodes  are 
affected  by  convection.  Consider  the  equation  at  Node  3  which  would  include  the  terms 
Uj  and  U4  from  its  neighboring  nodes  to  the  east  and  north.  The  equations  at  Nodes  2  and 
4  have  been  modified  to  model  the  convective  process  by  replacing  ELLPACK  generated 
equations  with  Equations  4.19  and  4.23,  respectively.  Since  the  terms  u^  and  U4  appear 
in  the  difference  equation  at  Node  3,  convection  is  modeled  implicitly  here.  Convection 
is  also  modeled  implicitly  at  Node  7. 

F.  RUNNING  THE  PROGRAM  WITH  CONVECTIVE  INTERFACE 
MODIFICATIONS 

The  actual  programming  mechanics  involved  in  changing  the  ELLPACK  generated 
equations  for  nodes  lying  on  convective  interfaces  are  discussed  in  Chapter  VI.  Once 
these  modifications  have  been  made,  the  ELLPACK  program  can  be  successfully 
executed.  However,  iqiplication  of  ELLPACK  to  the  problem  of  Chqner  I  requires 
further  manipulation  of  die  ELLPACK  generated  equations  for  nodes  lying  on  the 
interface  between  the  substrate  and  the  chq>.  The  primary  heat  transfer  mechanism  at  this 
interface  is  conduction.  The  modifications  required  to  mathematically  model  this  interface 
are  discussed  in  Chapter  V. 
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V.  EQUATIONS  ALONG  A  CONDUCTIVE  INTERFACE 


The  equations  derived  in  this  chiq)ter  are  used  to  replace  ELLPACK  generated 
equations  for  nodes  that  lie  along  the  interface  between  the  chip  and  the  substrate,  hi 
general,  these  equations  model  conductive  heat  transit  between  two  solid  materials  that 
have  different  diermal  properties.  The  interface  between  two  materials  in  which 
conduction  is  the  mode  of  heat  transfer  is  called  the  conductive  interface. 

A.  ONE  DIMENSIONAL  ANALYSIS 
1.  Eqaation  Derivation 

Consider  the  one  dimensional  region  depicted  in  Figure  S.l.  Two  materials 
with  different  thermal  properties  come  into  thermal  contact  at  point  x  s  Hie  following 
variables  are  used  to  describe  these  theimal  prc^ities: 

•  k^:  Thermal  conductivity  in  Material  A. 

•  k,:  Thermal  conductivity  in  Material  B. 

•  Heat  source  in  Material  A. 

•  Heat  source  in  Material  B. 

A  non-uniform  grid  is  superimposed  onto  the  regitm.  In  Figure  5.1,  u,  and  v,  denote  the 
temperatures  at  node  i  in  Material  A  and  Marnial  B  respectively.  The  following  variables 
are  defined  for  the  nodal  netwoik  in  Figure  5.1: 
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«£  = 
«c  = 
“ir  = 


Vc  =  v(j:„), 
v;  =  v(ar„.,), 


(5.1) 


where  u(x)  and  v(x)  are  functions  that  describe  the  temperature  profile  in  Materials  A  and 
B  respectively.  The  nodal  network  on  the  conductive  interface  introduces  two  fictitious 
points,  Ug*  and  v^*,  which  have  been  flagged  with  asterisks  so  that  they  can  be  easily 
tracked  in  the  derivation  that  follows.  These  terms  qjpear  in  the  numerical  equations 
developed  along  the  conductive  interface  but  are  eliminated  in  the  final  form  of  the 
equation. 


Material  A 


Material  B 


(Conductive  Interface) 


w<- 


-^E 


n+l 


Figure  5.1:  Non-unifbim  grid  superimposed  onto  a  one  dimensional  region  consisting 
of  two  materials  that  come  into  thermal  contact  along  a  conductive  interface. 
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Heat  transpoit  along  the  conductive  interface  is  modeled  by  Poisson’s  equation. 
Equation  2.39,  modified  for  one  dimensional  analysis,  is  used  to  iqjproximate  Poisson’s 
equation  along  the  conductive  interface.  In  tenns  of  both  u  and  v  the  equations  become 


-(a  +  l)w^  +00/^  = 


-aia  +  DiAxfil. 


(5.2a) 


-  (a  +  l)v^  +  avnr  = 


.  -a(a  +  1)(ax)*jc^^ 


(5.2b) 


The  fictitious  variables  u^*  and  v^,*  are  eliminated  by  imposing  cmiditions  of  continuity 
at  the  conductive  interface.  The  first  continuity  condition  states  that  the  temperature  of 
Material  A  and  the  temperature  of  Material  B  must  be  equal  at  the  conductive  interface. 
Hence, 


«c  -  Vc  . 


The  second  continuity  cmdition  states  that  the  heat  flux  dirough  the  eastern  boundary  of 
Material  A  must  be  die  same  as  the  heat  flux  dirou^  the  western  boundary  of  Material 
B.  Therefore,  at  the  conductive  interface. 


*dxc  ^  dx'c 


Substituting  Equation  2.34  into  Equation  5.4  yidds 
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(5.5) 


(  .  'I 

«£  +  (a*  -  l)Uj,  -  ot*M^ 

=  k 

(  \ 
+  (a?  -  l)v^  -  0^,^ 

(  a(a  + 1)  J 

""B 

[  a(a  + 1)  ^ 

Solvmg  Equation  5.5  for  u/  gives 


=  Kv^  +  ^(oc*  -  l)v^  -  AToh^;  -  (a*  - 1 )!/,,  +  ce*«^  ,  (5.6) 

where 


(5.7) 


Substituting  Equation  5.6  into  Equation  5.2a  yields 


Kv^  -  (oe*  +  a)«^  +  K{q?  -  l)v^ ..  (c^  +  a)«^ 

- 


(5.8) 


Using  the  lentperahne  contmuiiy  condition  a  the  conductive  interface.  Equation  5.8  is 
rewritten  as 


Kvg  -  {-Kc^  +  oc*  +  AT  +  o)«p  +  oe(a  +  l)u^ 

2*. 


(5.9) 
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Now  multiplying  Equation  5. 2b  by  Ka  gives 


Kav^  -  {Ko?  +  iS:a)v,  +  .  (5.10) 

The  tenn  v^*  is  eliminated  by  adding  Equations  5.9  and  5.10.  After  applying  the 
temperature  continuity  condition  and  simplifying  the  results  are 


2(A:  +  +  a4g ) 


a 


2k. 


(5.11) 


Equation  5.1 1  is  used  to  generate  equations  for  nodes  on  the  conductive  interface  of  a  one 
dimensional  region. 

2.  Example:  Solving  for  the  Temperature  Profile  in  a  One  Dimensional 

Region  with  a  Conductive  Interface  for  uliich  the  Grid  is  Non-uniform 

a.  Problem  Statement 

This  inoblem  solves  the  temperature  profile  in  a  rod  of  length  ten 
centimeters  which  ctmsists  of  two  different  homogeneous  materials.  The  materials  foim 
a  conductive  interface  on  the  cemer  of  the  rod. 

b.  Data 

Data  for  the  problem  is  summarized  in  Figure  5.2. 
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c.  Analysis 


The  following  assumptions  ^ly  in  the  analysis  of  tfiis  problem: 

•  No  heat  is  lost  through  the  side  of  the  rod  (e.g.  the  temperature  is  not  a  function  of 
radius). 

•  The  properties  for  Material  A  and  Material  B  are  constant  throughout  their 
respective  regions. 

The  temperature  at  each  node  is  denoted  by  the  variable  U|.  The  grid  interior  to  Material 
A  is  uniform,  hence  the  q)proximation  of  die  heat  equation  for  these  nodes  is  given  by 
Equation  2.6.  A  Dirichlet  boundary  condition  is  incorporated  in  the  equation  for  Node 
1.  The  resulting  equations  for  the  nodes  interior  to  Material  A  are 

«,  -  2Uj  +  «3 

«j  -  2u,  * 

«,  ~  2u^  +  K, 

The  conductive  interface  lies  on  Node  5.  The  heat  equation  here  is  qiproximated  by 
Equation  5.11 


“  0. 

«  0  , 

(5.12a) 

=  0, 

=  0  . 


2h^  -  42ii,  +  40«,  «  -50  .  (5.12b) 

The  nodes  interior  to  Material  B  ate  mote  dotsely  packed  dian  those  in  Material  A. 
However,  the  grid  is  still  uniform  and  Equatitm  2.6  is  used  to  write  the  difference 
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equations  at  these  nodes.  The  Dirichlet  boundary  condition  is  incorporated  in  the 
equation  for  Node  14.  The  resulting  equations  for  the  nodes  interior  to  Material  B  are 


“3 

- 

^  “7 

=  -2.5 

“6 

1 

K> 

IS 

=  -2.5 

1 

1 

1 

1 

1 

1 

1 

1 

-  2n 

“u 

=  -2.5 

^13 

-  2u 

•*“14 

=  -102.5 

(5.12c) 


Rod  of  leagth  10  cm. 


(Conductive  Interface) 
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=  100' 

Figure  5.2:  Data  for  one  dimensional  region  in  which  two  materials  widi  different 
thermal  jnopeities  come  into  contact  along  a  ccmductive  interface. 
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In  matrix  foim.  Equation  5.12  becomes 


-2 

1 


1 

-2  1 
1  -2  1 
1  -2  1 
1  >42  40 
1  -2  1 
1  -2  1 
1  -2  1 
1  -2  1 
1  -2  1 
1  -2  1 
1  -2 
1 


1 

-2  1 
1  -2 


“l 

“2 

0 

0 

*^3 

0 

0 

“5 

-50 

«6 

-2.5 

“7 

s 

-2.5 

-2.5 

-2.5 

“lO 

-2.5 

-2.5 

-2.5 

“l2 

-2.5 

“l3 

-102.5  _ 

«14 

k5.13) 


<1.  Solution 

The  solution  to  Equation  5.13  is  an  q)proximati(m  of  the  temperature  at 
the  nodes  shown  in  Figure  5.2.  The  data  is  plotted  in  Figure  5.3.  Since  this  problem  is 
relatively  simple  it  can  be  solved  analytically.  The  result  is: 
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Figure  5.3:  Analytical  and  numerical  solutions  to  one  dimensional  conductive  interface 
example. 


u(x) 


5 


v(x)  =  -5x’ 


650 

11 


S^jf^lO. 


(5.14) 


Equation  5.14  is  superimposed  onto  the  numerical  approximation  in  Figure  5.3.  The  fit 
is  nearly  perfect.  This  is  not  surprising  since  die  temperatuie  profile  in  Material  A  is 
shown  to  be  linear.  The  temperature  profile  in  Material  B  is  quadratic  and  thenrfbre  has 
a  constant  second  tferivative.  Both  behaviors  are  modeled  quite  well  by  the  second  c»der 
differaice  apinoximations  which  were  used  to  numerically  obtain  the  tonperature  profile. 
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B.  TWO  DIMENSIONAL  ANALYSIS 


Develoi»nent  of  the  two  dimensional  analog  of  Equation  S.ll  follows  a  similar 
methodology  as  that  of  the  one  dimensional  counterpart.  Figure  5.4  represents  a  section 
of  a  two  dimensional  region  at  a  conductive  interface  that  is  oriented  parallel  to  the  y  axis 
at  X  =  X,.  A  non-uniform  grid  is  superimposed  onto  the  region.  As  before,  the  variables 
u  and  V  are  used  to  describe  the  temperature  profiles  in  Material  A  and  Material  B 
respectively.  The  following  subscripted  variables  are  defined: 


“c  = 

u{x.,y.). 

Vc  = 

v{Xi,y.), 

«£  = 

= 

* 

Vr  * 

v(x..,,,yp. 

“r  = 

'^5  * 

(5.15) 


where  u(x,y)  and  v(x,y)  ate  functions  diat  describe  the  temperature  profile  in  Materials 
A  and  Materials  B  respectively.  The  variables  and  v^*  ate  fictitious  and  are 
eventually  eliminated. 

The  {q>proximation  for  Poisson’s  equation  at  the  conductive  interface  comes  from 
the  two  dimensional  form  of  Equation  2.38.  This  equation  approximates  the  heat  flow 
in  the  region  is  expressed  in  terms  of  both  u  and  v  at  the  interface. 


Ug  -  (a*  +  ^  ^ 

ot(a  +  XYax?  P(^  +  IK^y)* 


(5.16a) 
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(5.16b) 


v^-(a-^l)vc-^avy  ^  Vy-(p-^l)Vc^Pv5__  qg 
a(a  +  1)(ajc)*  PO  +  IXa}')* 


As  in  the  one  dimensional  analysis,  the  following  conditions  of  continuity  are  imposed 
at  the  interface: 


Ufi  =  Vff,  Uf.  -  v^,  =  v^, 

u  t  ^1 


(5.17) 


In  order  to  simplify  the  analysis,  N  is  denoted  as 


P(P  +  IXay)* 


(5.18a) 


By  the  continuity  ctmditions  in  Equation  5.17,  N  can  also  be  expressed  as 


v^-(P  +  l)v^  +  pv, 


(5.18b) 


Substituting  N  into  Equatitm  5.16  yields 


ug  -  {a*  l)«j.  +  ow^  =  -a(a  +  IXax)*  , 


(5.19a) 


Figure  5.4:  Non-unifonn  grid  superimposed  onto  a  two  dimensional  region  in  which 
two  materials  come  into  thermal  contact  along  a  conductive  interface. 


Vj  -  (a  +  l)v^  +  ocv,^  =  -a(a  -►  IX^)* 


(5.19b) 


If  the  proper  substitution  is  made  for  the  right  hand  side.  Equation  5.19  is  the  same  as 
Equation  5.2.  Recognizing  this  fact  enables  one  to  use  Equation  5.19  to  perform  the  same 
derivation  that  leads  to  the  conductive  interface  equation  in  one  dimension  The  result 
in  two  dimensions  is 
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K  (AT  +  a)  ,  ^ 

— Vj  -  J - iJUf.  +  M|,r  =  -ifiXY 


a  a 


2k. 


(,a*m 


(5.20) 


Now  substituting  Equation  5.18a  into  Equation  5.20  generates 


^  (a  +  l)(A*)* 


a  P(P  +l)(Ay)2 


*N 


/  \ 
AT  a  ^  (a  +  l)(Ar)* 

a  P(aj)* 


<  vy  S  w 


(P  +  lXAy)" 


2ib. 


(5.21) 


Equation  5.21  correctly  iq>proxiinates  heat  transport  on  a  conductive  interface  that  is 
parallel  to  the  y  axis.  If  die  conductive  interface  is  parallel  to  the  x  axis  a  similar 
analysis  results  in 


oe(a+lKAx)*  *  P  oXax)* 


^(P>lXAy)» 

(a  +  lXAx)»  • 


(Ay)* 


(^4"P^a)- 


(5.22) 
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C.  THREE  DIMENSIONAL  ANALYSIS 


1.  Equation  Derivation 

The  derivation  of  the  three  dimensional  form  of  the  heat  equation  at  the 
conductive  interface  of  a  two  material  region  is  the  same  as  that  of  its  lower  dimensional 
forms.  If  the  conductive  interface  is  parallel  to  the  yz  plane,  the  equation  centered  at 
node  Uc  is 


pO  +  lXAy)*"'  7(Y  +  1Xaz)*  ' 


f 

K^a 

a 

V 


(g  -t-  IXajc)^ 


(g  IXiiJf)^ 
yiAzf 


^  (g  ->-1Xax)^^. 
(Y  +  IXat)*  ^ 


(g-^lXAr)» 

(P-^lXay)* 


2k. 


(5.23) 


If  the  conductive  interface  is  parallel  to  the  xz  plane,  the  equation  centered  at  node  Uc 
becomes 
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a(a  +  l)(Ax)*  ®  y(Y  +  1Kaz)*  ^ 


(  \ 

i^-^P^(P-^lXAy)^^(P->-lXAy)^ 

P  Oitxf  TXaz)* 


(y  +  lXAz)»  (a  +  lXAJc)*  ■ 


(Ay)* 

2^. 


(«x"P4,)- 


(5.24) 


If  the  conductive  interface  is  parallel  to  the  xy  plane,  the  equation  centered  at  node  u^  is 


£v  .  (r->iK^)=  „  ^  (T-ix^y  „ 

T  "  WP^IXa^)’’'  oXo-lXAt)’  ' 


( 

i^-»-Y.(Y-^lXAz)*^(Y-^lXAz)* 
^  Y  P(Ay)*  CX(AX)* 


(Y  +1Xaz)*  (y  +  IXaz)* 

+  - '2. — —u^  *  -li - 2 — £_||,  +  It, 

(a  +  lXAx)*  (P-^lXAy)*® 


(AZ)* 


(^A^W  • 


(5.25) 


Equations  5.23  dirough  5.25  are  used  to  reidace  the  ELLPACK  generated  equations  for 
nodes  that  lie  along  the  conductive  interface  of  a  ditee  dimensional  regime  when  non- 
uniform  grid  analysis  is  used.  These  equations  pit^pmly  model  the  heat  transport  between 
dw  chq)  and  the  substrate  in  the  problem  discussed  in  Clupter  I. 
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2.  Example:  Reducing  the  Conductive  Interface  Equation  for  a  Non- 
uniform  Grid  in  a  Three  Dimensional  Region  to  the  Seven  Point  Star 
Equation 

a.  Problem  Statement 

This  problem  is  to  show  that  Equation  5.23  reduces  to  the  seven  point  star 
equation  if  two  materials  with  the  same  thermal  properties  come  into  contact  along  a 
conductive  interface.  We  assume  that  the  heat  source  is  uniform  throughout  the  two 
materials.  Uniform  grid  analysis  is  used  in  this  example. 

b.  Data 

Using  a  uniform  grid  for  die  analysis  implies 


AX  =  ay  =  AZ*  h, 

a  =  P  =  Y  =  1- 

Since  the  material  properties  are  the  same,  the  following  is  true: 

k  ^  k  -  k 


(5.26) 


(5.27) 


which  implies  that 


K 


=  1. 


(5.28) 
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Since  the  heat  source  is  the  same  throughout  both  materials  it  is  true  that 


4a  =  =  4. 


(5.29) 


c.  Solution 

Substituting  Equation  5.26  imo  Equation  5.23  generates 

5)u^  + 11^  +  +  tty  =  ■•:^-(4a  4,)  •  (5.30) 

2«a 

Equation  5.30  qjproximates  the  behavior  at  a  conductive  interface  parallel  to  the  yz  plane 
on  a  uniform  grid.  Substituting  Equations  5.27  through  5.29  into  Equation  5.30  yields 


*Uf,*U„-6Uc  +tt^  +11,  +tty 


(5.31) 


Equation  5.31  is  die  seven  point  star  equation  diat  was  first  introduced  in  (Tlvqiter  n. 

The  seven  point  star  equation  can  also  be  obtained  if  Equations  5.26 
through  5.29  are  substituted  into  Equation  5.24  or  into  Equation  5.25.  This  example  lends 
credibility  to  the  equations  derived  for  heat  transfer  along  the  conductive  interface  in  a 
three  dimensional  region.  These  equations  are  used  in  an  ELLPAC3C  program  described 
in  Chiqiter  VI  to  model  the  behavior  along  the  interface  between  the  chq)  and  the 
substrate  in  the  problem  of  ChiqMer  I. 
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VI.  MODEL  FOR  A  CHIP  MOUNTED  ON  A  SUBSTRATE 


This  ch£q>ter  describes  a  program  written  to  approximate  the  temperature  profile 
within  die  region  depicted  in  Figure  4.1.  The  equations  developed  in  Chapters  IV  and  V 
are  used  in  concert  with  ELLPACK  to  model  the  heat  transport  within  the  region.  The 
program  allows  the  user  to  vary  the  dimensional  and  material  property  parameters  of  the 
region  with  litde  modification  to  the  code.  Hie  formulation  of  the  program  utilizes  the 
symmetry  of  the  region  as  discussed  in  Chqiter  I.  The  resulting  solution  estimates  the 
temperature  for  the  entire  region  depicted  in  Figure  1.3. 

A.  SUBROUnNESA^ARIABLES  USED  THROUGHOUT  THE  COMPUTER 
MODEL 

User  defined  subroutines  ate  incorporated  in  the  SUBPROGRAM  segment  of  the 
main  ELLPACK  program.  These  subroutines  and  their  use  are  summarized  in  ^ipendix 
A.  User  defined  variables  are  introduced  into  the  main  program  and  made  available  to 
the  remainder  of  the  ELLPACK  program  means  of  die  GLOBAL  segment  or  through 
subroutine  calls.  These  variables  ate  listed  in  Appendix  B.  Several  ELLPACK  generated 
variables  are  manqiulated  and  changed  diroughout  the  program  run  when  equations  along 
conveaive/conductive  interfaces  are  modified.  These  variables  are  listed  in  Appendix  C. 
The  program  is  listed  in  its  entirety  in  ^qiendix  D. 
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B.  PROGRAM  ALGORITHM 


A  basic  outline  for  the  program  algorithm  is  presented  below.  The  steps  listed  that 
are  flagged  with  indicate  that  the  user  must  make  changes  if  the  Appendix  B 
variables  are  modified. 

1.  Set  the  OPTIONS  Segment*** 

Output  choices  are  set  in  the  OPTIONS  segment.  Invoke  the  MEMORY  or 
TIME  modules  if  memory  allocation  or  run  time  data  is  desired.  Set  LEVEL  equal  to  0, 
1,  or  2  depending  on  the  level  of  output  desired.  In  addition  to  ouqnit  provided  by 
ELLPACK,  the  following  data  is  printed  for  each  LEVEL  setting: 

a.  LEVEL  0  Output 

A  summary  table  for  data  that  is  generated  by  invoking  an  ELLPACK 
provided  solution  module  is  printed.  Additionally,  error  banners  are  displayed  if  the 
program  run  is  terminated  due  to  improper  specificatitm  of  grid  points  and  interface 
locations. 

b.  i£VEL  I  Output 

In  additi<vi  to  LEVEL  0  output,  LEVEL  1  ouqnit  generates  a  banner  when 
any  ctmductive  or  ccmvective  interfiace  routine  is  invoked  to  alter  die  equations  along  such 
an  interface.  LEVEL  1  also  summons  die  vacs  defined  successive  over-rdaxation  (SOR) 
subroutine  and  provides  a  summary  taUe  of  its  ouqmt.  LEVEL  1  output  for  the  test 
problem  is  listed  in  Appendix  E. 
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c.  LEVEL  2  Output 

LEVEL  2  output  is  used  for  debugging.  In  addition  to  LEVEL  0  output 
and  LEVEL  1  output,  LEVEL  2  output  lists  the  parameters  used  to  modify  each  equation 
along  the  conductive  or  convective  interfaces.  LEVEL  2  output  lists  the  values  of  each 
coefficient  for  the  equations  that  are  to  be  modified.  LEVEL  2  output  also  calls  attention 
to  any  modifications  that  may  have  been  made  due  to  boundary  conditions  invoked  on 
the  interface.  Finally,  LEVEL  2  output  provides  additional  output  to  debug  the  user 
provided  SOR  subroutine.  A  sample  of  LEVEL  2  output  is  provided  in  Appendix  F. 

2.  Declare  User  Defined  Variables 

Variable  declarations  are  made  in  the  DECLARATIONS  segment  of  the  main 
ELLPACK  program.  A  double  precision  array,  UNKN,  is  declared  in  the  test  program 
for  use  as  a  woric  ^ace  if  the  SOR  subroutine  is  invoked. 

3.  Establish  Global  Variables 

The  GLOBAL  segment  is  used  to  establish  global  variables.  The  dimensions, 
material  properties,  heat  generation  levels,  and  convective  properties  for  the  region 
depicted  in  Figure  4.1  are  made  global  for  use  throughout  the  program. 

4.  Define  the  Elliptic  Equation 

The  elliptic  equation  is  defined  in  the  EQUATION  segment.  This  segment 
uses  double  precision  functions  A,  B,  and  C  as  variable  coefficients  to  represent  the  three 
equations  for  each  subregion  depicted  in  Figure  4.1  as  a  single  ELLPACK  equation. 
These  functions  automatically  make  die  required  changes  to  die  EQUATION  segment 


91 


when  the  user  varies  the  dimensions  of  each  subregion.  However,  they  do  not  adjust  the 
EQUATION  segment  if  major  changes  to  the  region’s  basic  geometry  are  made. 

5.  Define  the  Boundary  of  the  Region*** 

If  die  user  wishes  to  alter  the  boundary  conditions,  changes  must  be  made  in 
the  BOUNDARY  segment.  If  the  locations  of  the  boundaries  are  shifted,  the  user  must 
make  appropriate  changes  to  accomplish  this  in  the  BOUNDARY  and  the  GRID 
segments. 

6.  Initialize  Test  Problem  Variables*** 

The  first  FORTRAN  segment  is  used  to  initialize  the  values  for  the 
dimensions,  material  properties,  and  heat  source  magnitudes  of  die  region  illustrated  in 
Figure  4.1.  These  global  variables  may  be  changed  to  modify  the  problem  and  will  be 
automatically  adjusted  throughout  the  user  defined  subroutines  and  functions. 

7.  Define  the  Grid*** 

The  grid  points  are  defined  in  the  GRID  segmem.  The  user  must  ensure  that 
the  legion’s  dimensions  and  interface  locations,  specified  in  die  first  FORTRAN  segment, 
are  also  specified  in  die  grid.  The  outlying  grid  points  must  also  agree  with  the  location 
of  the  boundaries  specified  in  die  BOUNDARY  segment.  If  this  criteria  is  not  met  the 
program  will  not  discretize  the  equatimis  properly  and  error  routines  incorporated  in  die 
user  defined  subroutines  will  terminate  die  program  execution. 
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$.  Dbcretizc  the  Elliptic  Equation 


The  elliptic  equation  is  discretized  by  ELLPACK  in  the  DISCREnZAHON 
segment.  The  7  POINT  STAR  module  will  be  used  exclusively  for  the  three  dimensional 
test  problem. 

9.  Invoke  Interface  Subroutines 

User  defined  subroutines  that  modify  the  difference  equations  along 
convective  or  conductive  interfaces  are  called  from  the  second  FORTRAN  block.  Before 
calling  interface  subroutines,  the  subroutine  Q3S111T  is  invoked  to  initialize  local 
variables  that  are  used  throughout  the  program.  QSSHIT  also  sets  the  logical  variable 
FIRST.  This  variable  serves  as  a  flag  indicating  that  the  current  subroutine  call  is  the 
fust  call  to  a  ctmvecttve  subroutine.  The  FIRST  flag  is  immediately  reset  after  this  first 
call.  The  program  then  invokes  a  set  of  convective  subroutines  that  define  interfaces  that 
intersect  along  a  convex  edge  or  comer.  For  the  test  problem  the  equations  along  the 
upper  boundary  of  die  subsuate  are  modified  first  where 

z  «  RT2,  0  i  X  S  RLf2,  0  S  y  S  RLfl. 

Note  that  this  subroutine  call  has  incorrectly  modified  the  equations  along  the  conductive 
interface  between  die  chq)  and  substrate.  This  will  be  corrected  in  a  later  call  to  the 
conductive  subroutines. 

The  remaining  convective  surfaces  form  a  concave  intersection  with  the  upper 
boundary  of  the  substrate.  This  necessitates  resetting  the  FIRST  flag  which  is 
accomjdislied  by  invddng  Q3STRT  again.  Immediately  thereafter,  convective  subroutines 
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that  modify  equations  along  the  eastern  and  western  boundaries  of  the  chip  are 
respectively  invoked  at 


X  =  RTIH,  0  ^  y  ^72.  RT2  ^  z  ^  RTl  *RT2, 

y  =  RT2H,  Q^x  ^TI,  RT2  ^  z  ^  RTl  *RT2. 

Finally  a  conductive  subroutine  that  modifies  the  equations  along  the  interface 
between  the  chq>  and  substrate  is  called  at 

2  «  RT2,  0  ^  jc  ^  RLl,  0  ^  y  ^  RL2.  (63) 

This  FORTRAN  block  need  not  be  altered  i»ovided  that  the  basic  geometry 
of  Figure  4.1  is  not  changed. 

A  call  to  a  conductive  or  convective  subroutine  summons  a  series  of 
additional  operations  that  are  automatically  invoked  within  each  respective  subregion. 

a.  Define  Ae  Bounds  of  the  Interface 

The  i^ysical  bounds  of  each  interface  are  entered  by  die  user  in  the  first 
FORTRAN  segment  sriien  defining  die  dimensicms  for  the  subregions  Figure  4.1.  The 
values  are  passed  to  the  conductive  or  convective  subroutines  via  common  blocks.  If  die 
user  alters  the  geometry  of  the  problem  or  changes  the  names  or  usage  of  variables 
initialized  in  the  first  FORTRAN  segment,  it  becomes  necessary  to  alter  variables  which 
are  used  in  subitwitines  Q3EVCr,  QSNVCT,  Q3UVCT,  Q3WVCT,  Q3SVCr,  Q3LVCr, 
and  Q3UDCT.  If  the  user  merely  changes  dK  ^ipoidix  B  variables,  no  modifications 
are  required. 
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h.  Define  Material  Properties  on  Both  Sides  of  the  Interface 
The  same  actions  are  taken  as  in  Subsection  a  above. 

c.  Irtcorporate  Boundary  Cortditions  Along  the  Interface 

If  die  interface  intersects  with  a  boundary  that  was  defined  in  the 
BOUNDARY  segment,  the  boundary  condition  must  be  incoiporated  into  the  modified 
interface  equation.  This  is  accomplished  within  user  defined  subroutines.  This  step 
requires  no  modification  if  the  user  properly  specifies  boundaries  in  the  BOUNDARY 
segment. 

10.  Invoke  the  User  Defined  SOR  Subroutine*** 

This  SOR  subroutine,  Q8SORM,  may  be  invoked  by  selecting  LEVEL  1 
output.  This  subroutine  is  suggested  for  large  matrix  systems.  Parameters  in  this 
algorithm  may  be  initialized  in  the  6rst  FORTRAN  segment  and  are  defined  in  Appendix 
B. 

11.  Select  a  Solution  Module*** 

The  SOLUTION  segment  may  be  used  to  invoke  any  solution  module 
discussed  in  Chrqrter  IH  to  solve  the  test  problem.  However,  if  the  size  of  the  matrix 
precludes  dieir  use,  the  user  provided  SOR  algorithm  is  recommended. 

12.  Select  an  Output  Module*** 

If  an  ELLPACK  provided  output  module  is  desired,  it  may  be  called  in  the 
OUTPUT  segment.  However,  die  user  |»rovided  function,  Q8SOLN,  will  provide  a 
summary  of  data  that  is  more  onnpact  and  easier  to  read  dian  ELLPACK  data  tables. 
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This  summary  is  automatically  invoked  for  LEVEL  0  output  when  an  ELLPACK  solution 
module  is  specified.  It  is  also  invoked  via  the  SOR  subroutine  if  LEVEL  1  output  is 
requested.  ELLPACK  plotting  modules  are  restricted  to  data  for  two  dimensional  regions. 

C.  RUNNING  A  TEST  PROBLEM 

A  test  problem  is  described  using  the  values  summarized  in  Table  6.1.  Hie  problem 
is  solved  using  both  the  user  defined  Q8SORM  subroutine  and  the  ELLPACK  provided 
BAND  GE  module.  The  LEVEL  1  output  for  this  run  is  listed  in  Appendix  E.  The 
solution  using  the  SOR  algorithm  matches  the  solution  obtained  using  BAND  GE  to  the 
second  decimal  place.  This  is  a  verification  of  the  SOR  algorithm  written  for  this 
problem. 

There  is  an  advantage  to  using  the  Q8SORM  subroutine  over  the  BAND  GE 
module.  The  BAND  GE  module  requires 

i2ML*MU*2)*N 

words  of  work  space  where: 

•  ML  equals  the  lower  bandwidth  of  the  matrix  being  solved. 

•  MU  equals  the  upper  bandwidth  of  the  matrix. 

•  N  equals  the  number  of  equations  for  the  system. 

The  bandwidth  of  a  matrix  resulting  from  the  7  POINT  STAR  module  is  determined  by 
taking  the  product  of  the  number  of  x  points  and  y  points  defined  in  the  GRID  segment. 
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Table  6.1:  Values  Used  For  Test  Problem. 


Subregion 

Varud}le 

Value 

Units 

Ch^ 

RLl 

0.002 

M 

RL2 

0.002 

M 

RTl 

0.002 

M 

RKl 

1.0 

W/M-K 

QDTl 

6.25E7 

W/M’ 

Substrate 

RL 

0.05 

M 

RT2 

0.0005 

M 

RK2 

50.0 

W/M-K 

QDT2 

o 

b 

W/M* 

1  Fluid  Region 

H 

50.0 

W/M®-K 

UINF 

20.0 

*C 

Convective  Interfaces 

RLIH 

RLl/2 

M 

RL2H 

RL2/2 

M 

RUH 

RT2 

M 

Conductive  Interface 

RT2Z 

RT2 

M 

For  the  test  problem  the  bandwidth  is  81.  The  size  of  the  system  is  648  equations.  Thus 
BAND  OE  requires  158,760  words  of  storage.  The  storage  requirement  for  BAND  GE 
riq>idly  grows  beyond  memory  limits  if  the  grid  is  refined  or  if  a  region  of  greater 
complexity  or  size  is  defined. 

The  memory  requirement  is  reduced  significantly  by  iteratively  solving  the  syston 
of  equations  using  the  SOR  method.  For  example,  the  work  space  requiremont  for  the 


97 


Table  6.2:  Relaxation  Factor  versus  Number  of  Iterations  Required  to  Solve  the  Test 
Problem  when  the  Convergence  Criteria  Equal  to  .0001. 


Relaxation 

Factor 

Number  of 
Iterations 

Relaxation 

Factor 

Number  of 
Iterations 

1.00 

7625 

1.50 

2977 

1.05 

7007 

1.55 

2640 

1.10 

6434 

1.60 

2317 

1.15 

5902 

1.65 

2006 

1 

5406 

1.70 

1705 

1 

4940 

1.75 

1413 

1.30 

4503 

1.80 

1127 

1.35 

4091 

1.85 

843 

1.40 

3700 

1.90 

552 

1.45 

3330 

1.95 

252 

test  problem  is  reduced  to  648  words  of  storage.  This  is  a  savings  in  storage  of  98.6 
percent!  The  tradeoff,  however,  is  dut  SOR  is  a  slower  and  less  accurate  algorithm.  The 
speed  of  solution  can  be  increased,  however,  by  determining  die  optimum  relaxation 
factor.  Table  6.2  summarizes  die  number  of  iterations  required  for  relaxation  factors 
between  one  and  two.  The  optimum  relaxatitm  factor  was  determined  to  be  1.9445. 
When  used  in  the  test  program,  the  convergence  criteria  of  .0001  is  reached  in  227 
iterations. 

The  qieed  of  SOR  can  also  be  increased  by  qipropriately  selecting  the  value  used 
for  convergence  criteria.  Recall  that  dw  error  of  the  numerical  approximation  of  the 
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temperature  profile  when  using  the  seven  point  star  algorithm  on  a  non-imifotm  grid  is 
of  the  order  of  the  maximum  grid  interval  in  the  x,  y,  or  z  direction.  For  the  test  problem 
this  maximum  grid  interval  is  .007  meters.  It  would  not  be  reasonable  to  set  a 
convergence  criteria  that  is  much  smaller  than  this  value.  A  good  rule  of  diumb  is  to  set 
the  convergence  criteria  equal  to  the  maximum  grid  length  divided  by  about  100.  In  the 
test  problem,  the  convergence  criteria  is  .0001. 

Despite  efforts  to  speed  up  the  SOR  algorithm,  it  still  runs  slower  than  BAND  GE. 
However,  in  today’s  world  of  high  speed  computers  the  delay  is  not  likely  to  be 
noticeable  to  the  user.  Furthermore,  the  savings  in  work  space  becomes  paramount  as  the 
size  of  the  system  increases.  Table  6.3  provides  some  examples  of  storage  requirements 
that  one  might  encounter  when  using  the  7  POINT  STAR  module  to  qjproximate  the 
temperature  profile  in  a  three  dimensional  domain.  The  matrix  of  size  10000  by  10000 


Table  6.3:  Storage  Requirements  for  BAND  OE  versus  SOR  for  Systems  of  Various 
Sizes. 


Number  of  Grid 
Points 


Matrix  Characteristics 


Storage 

Requirements 


X 

B 

z 

Bandwidth 

Size 

BANDGE 

SOR 

3 

3 

3 

9 

27 

783 

27 

5 

5 

5 

25 

125 

9,625 

125 

9 

9 

9 

81 

648 

158,760 

648 

25 

25 

16 

625 

18*10* 

10* 

listed  for  the  final  system  in  Table  6.3  is  not  at  all  unreasonable  for  a  configuration  of 
greater  geometric  complexity  or  increased  grid  refinement. 

From  this  discussion,  it  is  evident  that  SOR  is  the  preferable  method  for  solving 
large  systems  of  equations  due  to  storage  limitations  in  today’s  computers. 

D.  A  MODEL  FOR  AN  INFINITE  NUMBER  OF  UNIFORM  CHIPS  MOUNTED 

ON  AN  INFINITE  SUBSTRATE 

Up  to  this  point  the  temperature  profile  for  a  single  ch^  mounted  on  a  substrate  has 
been  iqpproximated.  A  slight  modification  to  the  boundary  conditions  will  extend  this 
system  to  an  infinite  number  of  equally  spaced  uniform  chi^  mounted  on  an  infinite 
substrate.  In  this  system,  the  eastern  and  northern  boundaries  of  the  substrate  in  Figure 
4.1  will  also  be  planes  of  symmetry.  Thus  at  the  eastern  boundary  of  the  substrate  the 
boundary  condition  in  ELLPACK  form  is 

UX  *  0  X=.025D0.  (^  5) 

Likewise,  the  boundary  condition  at  die  northern  boundary  of  the  substrate  becomes 

UY  -  0  Y  -  .025D0.  (6-6) 

Incorporating  these  boundary  condititnis  into  die  test  problem  generates  the  LEVEL  0 
output  listed  in  Appendix  G.  The  resulting  qrfnoximatim  of  the  temperature  profile 
throughout  the  infinite  region  is  equal  within  two  decimal  points  to  that  temperature 
profile  obtained  from  die  problem  modeling  a  single  ch^  on  a  substrate.  The  fact  diat 
die  solutitms  for  die  single  dip  case  and  the  infinite  dip  case  are  nearly  equal  is  not 
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suiprising  since  the  cross  sectional  area  of  the  chip  in  the  test  problem  is  much  smaller 
than  the  cross  sectional  area  of  the  substrate.  Hence  the  heat  generated  by  the  chip  which 
is  transferred  via  conduction  to  the  substrate  has  enough  space  in  the  substrate  to 
convectively  dissipate  to  the  fluid  medium  before  the  eastern  or  northern  boundary  of  the 
substrate  is  reached.  This  result  would  tend  to  suggest  that  the  solution  obtained  from 
the  test  problem  would  also  approximate  the  temperature  proiSle  in  a  finite  multi-chip 
region  as  depicted  in  Figure  1.1.  That  solution  would  fall  somewhere  between  the  single 
chip  case  and  the  infinite  chip  case. 


m  SUMMARY  AND  RECOMMENDATIONS  FOR  FUTURE  RESEARCH 


The  primaiy  puipose  of  this  thesis  is  to  develop  the  equations  that  can  be  used  to 
predict  the  temperature  profile  in  an  electronic  complex  containing  several  chips  mounted 
on  a  substrate  with  convection  to  a  fluid  medium  as  the  primaiy  mode  of  cooling.  The 
main  results,  reported  in  Chapters  IV  and  V,  modeled  behavior  along  convective  and 
conductive  interfaces  respectively.  These  results  are  required  to  modify  equations 
generated  by  ELLPACK,  a  FORTRAN  based  software  package  whose  cq>abilities  are 
discussed  in  Chapters  n  and  m.  A  program  is  presented  to  model  the  temperature  profile 
for  a  single  chq)  mounted  on  a  substrate.  A  minor  modification  to  the  boundary 
conditions  makes  it  possible  to  use  this  same  program  to  predict  the  temperature  profile 
in  a  region  where  an  infinite  number  of  identical  chips  are  evenly  distributed  on  an 
infinite  substrate.  The  results,  indistinguishable  to  two  decimal  places,  are  reported  in 
Appendices  E  and  G  respectively.  In  both  the  single  and  infinite  cases,  these  results 
iqjpear  to  provide  a  reasonable  ipproximation  of  the  temperature  profile  within  the 
dectronic  complex.  For  die  infinite  case  the  ch^  were  tqiproximately  one  centimeter 
tpart.  It  is  recommended  that  tardier  investigation  be  performed  to  determine  how 
closely  the  chips  can  be  packed  before  the  infinite  chip  case  deviates  significantly  fnnn 
the  single  chip  case.  This  investigation  could  be  accomplished  by  simply  modifying  the 
dimensions  of  die  substrate.  The  solution  for  die  case  of  a  finite  number  of  identical 
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chips  unifonnly  mounted  on  a  finite  substrate  is  bounded  below  by  the  single  ch^  case 
and  above  by  the  infinite  chip  case. 

It  would  be  desirable  to  further  develop  the  program  so  that  the  temperature  profile 
could  be  predicted  for  a  complex  that  contains  a  finite  number  of  disparate  heat 
generating  electronic  components  that  are  non-unifoimly  distributed  on  a  finite  substrate, 
e.g.  a  circuit  board.  This  complex  geometry  would  generate  a  matrix  system  of  large 
proportions.  The  SOR  subroutine  that  has  been  provided  can  handle  these  large  systems. 
The  program  presented  in  this  paper  provides  some  of  the  basic  building  blocks  needed 
to  construct  such  a  region  and  ^)proximate  its  temperatures.  However,  several  areas  still 
remain  to  be  investigated  before  this  can  be  accomplished. 

The  program  itself  should  first  be  thoroughly  tested  by  varying  boundary  values  and 
by  experimenting  with  the  variables  that  define  the  properties  and  dimensions  for  the 
region  illustrated  in  Figure  4.3.  The  program  should  then  be  streamlined  in  such  a  way 
that  construction  of  a  complex  region  similar  to  the  one  discussed  in  the  previous 
paragr^rh  could  be  reasonably  constructed. 

Several  subroutirres  still  remain  to  be  written  to  further  generalize  the  program.  An 
output  routirw  that  produces  three  dimensional  temperature  plots  for  each  z-level  defined 
by  the  GRID  segment  would  be  extremely  useful.  A  conductive  routine  that  alters 
equations  for  conductive  interfaces  lying  parallel  to  the  xz  and  yz  plane  is  still  needed. 
Equations  that  model  the  behavior  r^en  more  than  two  solid  materials  come  into  contact 
should  be  developed  and  coded. 


With  the  advent  of  parallel  processing,  one  can  solve  the  problem  discussed  in  this 
paper  using  domain  decomposition  which,  as  the  name  suggests,  breaks  a  domain  down 
into  smaller  subdomains.  Each  subdomain  is  then  assigned  to  a  processor  which  can  use 
ELLPACK  to  simultaneously  solve  the  elliptic  problem  defined  over  each  subdomain. 
Currently  lELLPACK  (parallel  ELLPACK)  is  under  development  at  Purdue  University. 
The  algorithms  prescribed  in  this  paper  could  be  incoiporated  into  lELLPACK  to  be 
utilized  on  those  subdomains  where  a  conductive  interface  is  present. 

The  ultimate  goal  is  to  provide  a  system  that  will  enable  the  thermal  designer  to 
approximate  the  temperatures  within  a  wide  range  of  electronic  configurations.  An 
optimum  program  could  be  described  as  computerized  electronic  building  block  set.  Each 
"block"  represents  an  electronic  component  that  is  assigned  attributes  that  quantify 
dimensions,  material  properties,  etc.  The  "blocks"  are  placed  on  a  "base  board"  that 
represents  the  substrate.  The  attributes  of  the  substrate  and  surrounding  fluid  medium  are 
also  be  defined  the  user.  If  this  procedure  is  accomplished  using  a  computer  graphics 
package,  the  task  of  building  a  complex  electronic  package  would  be  simplified 
immensely.  The  user  would  then  execute  a  program  that  produces  a  solution.  In  this 
idealized  package  the  steps  requited  to  set  up  an  ELLPACK  program  are  performed 
automatically  thus  minimizing  user  intervention. 

A  software  package  such  as  the  one  described  would  be  invaluable  to  the  thermal 
designer.  This  package  would  be  an  advanced  distant  cousin  to  the  program  provided  in 
this  piqrer.  However,  the  equations  derived  here  provide  the  necessary  foundation  to 
pursue  this  final  goal. 
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APPENDIX  A 


USER  PROVIDED  SUBROUTINES 


Several  subroutines  were  written  to  be  used  together  with  ELLPACK  to  model  the 
chip  and  substrate  system.  These  subroutines  are  identified  using  ELLPACK  naming 
conventions  discussed  in  Rice  and  Boisvert  [Ref.  4:pp.  317-318].  These  subroutines  are 
listed  in  the  order  in  which  they  appear  in  the  program. 


•  Q3STRT:  Initializes  variables  used  in  the  interface  discretization  routines.  These 

variables  are  unchanged  throughout  the  program.  Also  sets  FIRST  flag 
that  signals  a  first  call  to  a  convective  subroutine. 

•  Q3EVCT:  Invokes  the  subroutines  that  modify  the  coefficients  for  equations 

generated  by  ELLPACK  alrmg  an  eastern  convective  interface. 

•  Q3NVCT:  Same  as  Q3EVCT  along  a  norfiiem  convective  interface. 

•  Q3UVCr:  Same  as  Q3EVCT  along  an  upper  convective  interface. 

•  Q3UDCT:  Invokes  the  subroutines  that  modify  the  coefficients  for  equations 

generated  by  ELLPACK  along  a  conductive  interface  parallel  to  the 
xy  plane. 

•  Q3XVCr:  Modifies  the  equations  generated  by  ELLPACK  for  points  on  a 

convective  interface  paraUel  to  the  yz  plane. 

•  Q3YVCr:  Same  as  Q3XVCT  along  a  convective  interface  that  is  parallel  to  the 

xz  plane. 

•  Q3ZVCr:  Same  as  Q3XVCT  along  a  convective  interface  that  is  parallel  to  the 

xy  plane. 

•  Q3ZDCr:  Same  as  Q3ZVCr  alot^  a  conductive  interface  drat  is  parallel  to  the 

xy  plane. 
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•  Q3PARM: 

•  Q3BNDY; 

•  Q3STCF: 

•  Q4XRNG: 

•  Q4YRNG: 

•  Q4ZRNG: 

•  Q5SORM: 

•  Q8CVHD; 

•  Q8CDHD: 

•  Q8EQHD; 

•  Q8EQDT: 

•  Q8BDAT; 

•  Q8BRST; 

•  Q8SOLN: 


Returns  the  parameters  necessary  to  modify  the  coefficients  of  the 
equations  on  the  interface  of  a  three  dimensional  region  where  a  non- 
uniform  grid  is  used. 

Modifies  the  values  of  the  coefficients  for  points  that  are  adjacent  to 
a  boundary. 

Modifies  die  ELLPACK  variables  that  describe  the  equation  along  the 
interface  of  die  three  dimensional  regime.  The  values  returned  are 
used  to  solve  die  system  of  equations. 

Determines  the  range  of  die  unknown  grid  points  along  an  interface 
parallel  to  the  yz  plane.  Ensures  that  bounds  specified  for  the  interface 
have  also  been  specified  on  the  grid.  If  not,  the  run  is  terminated. 

Same  as  Q4XRNG  on  interfaces  parallel  to  the  xz  plane. 

Same  as  Q4XRNG  on  interfaces  parallel  to  the  xy  plane. 

Solves  the  system  of  equations  generated  by  the  discretization  routines 
using  successive  over-relaxation  iterative  mediod. 

Prints  a  banner  when  a  cmivective  interface  is  invtdced. 

Prints  a  banner  when  a  conductive  interface  is  invoked. 

Prints  a  header  identifying  the  equation  cutiendy  being  modified. 

Prints  parameters  used  when  modifying  the  current  equation  and  prints 
resulting  equation  coefficients. 

Prints  parameters  used  when  modifying  interface  equations  adjacent 
to  boundaries. 

Prints  parameters  used  when  a  boundary  convective  interface. 

Produces  a  set  of  solution  summary  tables  for  each  z  grid  point 
defined  for  the  region. 
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APPENDIX  B 


USER  DEnNED  VARIABLES 


Several  user  defined  variables  are  introduced  and  made  global  for  use  throughout 
the  entire  program.  These  variable  are  set  by  the  user  in  the  first  FORTRAN  block. 


They  include: 

• 

H: 

The  convection  coefficient  between  the  chq),  substrate  and  fluid  region. 

• 

ITMAX; 

The  maximum  iterations  attempted  for  the  SOR  algorithm. 

• 

OMEGA: 

The  relaxation  factor  for  the  SOR  algorithm. 

• 

QDTl: 

The  magnitude  of  the  hetu  source  of  the  ch^. 

• 

QDT2: 

The  magnitude  of  the  heat  source  of  the  substrate. 

• 

RKl: 

The  thermal  conductivity  coefficient  of  the  ch^. 

• 

RK2: 

The  thermal  conductivity  of  the  substrate. 

• 

RL: 

The  lengdi  and  widdi  of  the  substrate. 

• 

RLl: 

The  length  of  the  chip. 

• 

RLIH: 

The  location  of  the  convective  interface  along  the  eastern  boundary  of 
the  chq)- 

• 

RL2: 

The  width  of  the  ch^. 

• 

RL2H: 

The  locatitm  of  the  convective  interface  along  the  northern  boundary 
of  the  ch^. 

• 

RL3H: 

The  location  of  die  convective  interface  along  the  uj^r  boundary  of 
the  substrate. 
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•  RTl: 

•  RT2: 

•  RT2Z: 

•  UINF: 

•  ZETA: 


The  thickness  of  the  chip. 

The  thickness  of  the  substrate. 

The  location  of  the  conductive  interface  between  the  chip  and  the 
substrate. 

The  ambient  temperature  of  the  fluid  region. 

The  convergence  criteria  for  the  SOR  algorithm. 
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APPENDIX  C 


ELLPACK  VARIABLES  AND  SUBROUTINES  USED  IN  THE  PROGRAM 


This  appendix  describes  the  ELLPACK  generated  variables  and  subroutines  that  are 
used  throughout  the  program  to  modify  equations  along  the  interfaces.  A  more  detailed 
discussion  can  be  found  in  Rice  and  Boisvert  [Ref  4:pp.  319-342]. 


•  IIBCTY:  A  vector  of  length  six  that  contains  integer  values  that  classify  the 
boundary  type.  Possible  values  for  IIBCTY  are  summarized  below. 


1  ^ue  of  IIBCTY 

Meaning 

> 

Dirichlet  boundary  condition.  | 

Neumann  boundary  condition.  | 

Mixed  boundary  condition.  | 

1  ^ 

Periodic  boundary  condition.  1 

•  IlIDCO:  Cohimn  indices  for  matrix  coefficients  in  RICOEF. 


•  IlLEVL:  Level  of  printed  output  requested  in  the  OPTIONS  segment. 

•  IlMNEQ:  Row  dimension  of  RICOEF  and  IlIDCO  representing  the  number  of 

equations  and  unknown  variables  generated  by  the  DISCREi  izATION 
segment. 


•  IlMNCO:  Column  dimension  of  RICOEF  and  IlDCO  representing  the  maximum 

number  of  unknown  variables  per  equation. 

•  IINGRX:  Number  of  x  grid  points  listed  in  the  GRID  segment. 

•  IINGRY:  Number  of  y  grid  points  listed  in  the  GRID  segment. 
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•  IINGRZ: 

•  QIERRH: 

•  QIERRT: 

•  QIBCOE: 

•'  RIAXGR: 

•  RIAYGR: 

•  RIAZGR: 

•  RIBBBB; 

•  RIBRHS: 

•  RIBXGR: 

•  RIBYGR: 

•  RIBZGR: 

•  RICOEF: 

•  RIGRDX: 

•  RIGRDY: 

•  RIGRDZ: 

•  RIUNKN: 


Number  of  z  grid  points  listed  in  the  GRID  segment. 

Subroutine  that  produces  a  banner  indicated  that  a  fatal  error  has  been 
encountered. 

Subroutine  that  terminates  the  program  if  a  fatal  error  has  been 
encountered. 

Subroutine  used  to  identify  coefficients  of  a  boundary.  This  routines 
are  automatically  set  up  by  ELLPACK  based  on  data  placed  in  the 
BOUNDARY  segment. 

Initial  x  grid  point  listed  in  the  GRID  segment. 

Initial  y  grid  point  listed  in  th:  GRID  segment. 

Initial  z  grid  point  listed  in  the  GRID  segment. 

Matrix  containing  right  hand  side  values  of  the  equations  generated  by 
the  DISCRETIZATION  segment. 

Function  that  generates  the  values  for  the  right  hand  side  of  the 
boundary  conditions  which  were  specified  in  the  BOUNDARY 
segment. 

Final  x  grid  poim  listed  in  the  GRID  segment. 

Final  y  grid  poim  listed  in  the  GRID  segmem. 

Final  z  grid  poim  listed  in  the  GRID  segment. 

An  array  of  non-zero  matrix  elements  that  represent  the  coefficients 
for  each  equation  generated  by  the  DISCRETIZATION  segmem. 

Vector  ccmtaining  x  grid  points  defined  in  the  GRID  segment. 

Vector  comaining  y  grid  points  defined  in  die  GRID  segment. 

Vector  comaining  z  grid  points  defined  in  the  GRID  segment. 

Vector  comaining  the  solutimi  of  matrix  system. 
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APPENDIX  D 


ELLPACK  PROGRAM  CODE 


A  ★ 

*  SAMPLE  OF  3-D  ELLIPTIC  PROBLEM  USING  ELLPACK  * 

A  * 

*  THE  FOLLOWING  ELLPACK  PROGRAM  SOLVES  A  STEADY  STATE  * 

*  CONDUCTION  PROBLEM  IN  3-D  FOR  A  RECTANGULAR  DOMAIN,  * 

*  * 

♦TOP  BOX  OF  DIMENSION  -RL  <X<RL  ,  -RL  <Y<RL  ,  RT  <Z<RT  +RT  * 

*  1122212* 

♦BOTTOM  BOX  OF  DIMENSION  -RL  <X<RL  ,  -RL  <Y<RL  ,  0  <Z<RT  ♦ 

♦  2  ♦ 
*  * 


************************************************************************ 


************************************************************************ 


* 


* 


OPTIONS  SBOffiNT  —  SET  LEVEL  OF  DESIRED  OUTPUT  HERE.  IN  ADDITION  * 


*  TO  STANDARD  OUTPUT  GENERATED  BY  ELLPACK,  THE  FOLLOWING  DATA  IS  * 

*  IS  ALSO  GENERATED:  * 

*  * 

*  LEVEL-0  —  SOLUTION  SUtMARY  TABLE  IS  SOLUTION  MODULE  USED.  * 

*  LEVEL-1  ~  BANNERS  INDICATING  THAT  VARIOUS  DISCRETIZATION  * 

*  AND  SOLUTION  SUBROUTINES  HAVE  BEEN  INVOKED.  * 

*  ADDITIONALLY  PROVIDES  A  TABLE  SUtMARIZING  THE  * 

*  SOLUTION  TO  THE  PROBLEM.  * 

*  LEVEL-3  —  A  LISTING  OF  ALL  EQUATION  COEFFICIENTS  AND  INDICES  * 

*  THAT  HAVE  BEEN  ALTERED  BY  CONVECTIVE,  CONDUCTIVE,  * 

*  BOUNDARY,  AND  BOUNDARY  RESET  ROUTINES.  ALSO  LISTS  * 

*  PARAMETERS  THAT  ARE  USED  TO  MODIFY  THE  EQUATIONS.  * 

*  * 


**********,**,**********************,*,*****,**********,********,****,** 


OPTION.  LEVEL-1  $  MEMORY  $  TIME 

DECLARATIONS . 

DOUBLE  PRECISION  xmKN (1:10000) 
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*  * 

*  GLOBAL  SEGKENT  —  ALL  BOX  DIMENSIONS,  INTERFACE  LOCATIONS,  AND  * 

*  MATERIAL  PROPERTIES  ARE  MADE  GLOBAL  FOR  SUBSEQUENT  USE  IN  * 

*  USER  DEFINED  SUBROUTINES.  * 

*  * 


************************************************************************ 


GLOBAL. 

COMMON  /  BOXDIM  /  RL,  RLl,  RL2,  RTl,  RT2 

COMMON  /  CINTFC  /  RLIH,  RL2H,  RL3H,  RT2Z 

COMMON  /  MATPRP  /  RKl,  QDTl,  RK2,  QDT2,  H,  UINF 

************************************************************************ 
*  * 

*  EQUATION  SEGMENT  —  EQUATION  MUST  BE  IN  SELF-ADJOINT  FORM  TO  SAT-  * 

*  ISFY  LIMITATIONS  OF  THE  7  PT  STAR  DISCRETIZATION  SEQUENT.  * 

*  * 
************************************************************************ 


EQUATION.  (A(X,Y,Z) *UX)X  +  (A<X, Y, Z) *UY) Y  +  (A (X, Y, Z) *UZ) Z  +fi 
B(X,Y,Z)*U  -  C(X,Y,Z) 

BOUNDARY. 


* 

EASTERN 

BOUNDARY. 

* 

RK2*UX  + 

H*U 

>i 

H*UINF 

ON 

X 

— 

. 025D0 

UX 

— 

O.DO 

ON 

X 

. 025D0 

* 

NORTHERN 

BOUNDARY. 

* 

RK2*UY  + 

H*U 

m 

H*UINF 

ON 

Y 

m 

.025D0 

UY 

m 

O.DO 

ON 

Y 

<m 

.025D0 

* 

UPPER 

BOUNDARY. 

RK1*UZ  + 

H^U 

m 

H*U1HF 

ON 

Z 

.002SD0 

* 

WESTERN 

BOUNDARY. 

UX 

m 

O.DO 

ON 

X 

m 

O.ODO 

* 

SOUTHERN 

BOUNDARY. 

UY 

m 

O.DO 

ON 

Y 

- 

O.ODO 

* 

LONER 

BOUNDARY. 

RK2’»UZ  - 

H*U 

V 

-H*UINF 

ON 

Z 

m 

O.ODO 
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ooo  ooo  ooo  ooo  ooo  ooo  ooo 


★  * 

*  rORTKAN  SEOffiNT  1  —  USE  TO  ENTER  THE  DIMENSIONS  OF  THE  CHIP  * 

*  AND  SUBSTRATE  AND  THE  LOCATION  OF  ALL  INTERFACES.  * 

*  ALSO  ENTERED  HERE  ARE  THE  THERMAL  PROPERTIES  AND  MAGNITUDES  * 

*  OF  HEAT  SOURCES  FOR  ALL  MATERIALS  IN  THE  REGION.  * 

*  * 

FORTRAN. 

ENTER  DIMENSIONS  OF  CHIP  AND  SUBSTRATE. 


RL 

— 

.05D0 

RLl 

.002D0 

RL2 

* 

.002D0 

RTl 

— 

.002D0 

RT2 

.0005D0 

ENTER  LOCATION  OF  CONVECTIVE  INTERFACE. 

RLIH  -  .OOIDO 
RL2H  -  .OOIDO 
RL3H  -  RT2 

ENTER  LOCATION  OF  CONDUCTIVE  INTERFACE. 

RT2Z  -  RT2 

ENTER  PROPERTIES  OF  ELECTRONIC  CHIP. 

RKl  -  50. DO 

QDTl  -  .5D0/(BL1*RL2*RT1) 

ENTER  PROPERTIES  OF  SUBSTRATE. 

RK2  -  l.DO 

QDT2  -  O.DO/(RL*RL*RT2) 

ENTER  COEFFICIENTS  ALONG  CONVECTIVE  INTERFACES. 

H  -  50. DO 
UINF  -  20. DO 

INITIALIZE  DATA  FOR  SOR  ROUTINE. 

ZETA  -  . OOOIDO 
ITMAX  -  500 
OMEGA  -  1.9445D0 
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ooo  o  on  ooo  ooo  oooo  ooo  ooo 


************************************************************************ 


*  * 

*  GRID  SEGMENT  —  ENSURE  THAT  ALL  BOX  DIMENSIONS  AND  INTERFACE  * 

*  LOCATIONS  SPECIFIED  IN  FORTRAN  SEGMENT  ONE  ARE  INCLUDED  IN  THE  * 

*  GRID  POINT  SPECIFICATION.  THIS  PROGRAM  WILL  TERMINATE  IF  THIS  * 

*  CONDITION  IS  NOT  MET.  * 

*  * 


*****************************************************************fkAAA*AA 

GRID.  9  X  POINTS  0. DO, .0003D0, .0006D0, .OOIDO, .002D0, .006D0,& 

.012D0, .018D0, .025D0 

9  Y  POINTS  O.DO, .0003D0, .0006D0, .OOIDO, .002D0, .006D0,& 
.012D0, .018D0, .025D0 

8  Z  POINTS  O.DO, .OOOIDO, .0003D0, .0005D0, .0007D0,& 

.OOllDO, .0018D0, .0025D0 

DISCRET.  7  POINT  3D 

ititilititifkif  it  it  It  it  it  it  it  it  h  if  it  it  it  if  it  it  It  it  it  it  it  it  it  it  it  Hit  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  it  if  Ht  if  it  it  it  it  it  it  if  itit  it  it  itit  it  It  It 


*  it 

*  FORTRAN  SE(a4ENT  2  —  THIS  SE(affiNT  IS  USED  TO  INVOKE  THE  SUB-  * 

*  ROUTINES  THAT  ARE  REQUIRED  TO  MODIFY  ELLPACK  GENERATED  EQUATIONS  * 

*  ALONG  THE  MATERIAL  INTERFACES.  ADDITIONALLY  IT  WILL  INVOKE  ANY  * 

*  SOLUTION  OR  OUTPUT  ROUTINES  THAT  HAVE  BEEN  SPECIFICALLY  WRITTEN  * 

*  FOR  THIS  PROGRAM.  * 

*  * 


**********************************************************************^* 


FORTRAN. 


SET  INITIAL  GLOBAL  VALUES  BEFORE  INVOKING  CONVECTIVE  INTERFACES. 

CALL  Q3STRT 

INVOKE  UPPER  CONVECTIVE  INTERFACE  AT  Z  -  RT2. 

CALL  Q3UVCT (RICOEF,  RIBBBB,  IlIDCO,  IlMNEQ,  IlMNCO) 

RESET  INITIAL  GLOBAL  VALUES  BEFORE  INVOKING  CONVECTIVE  INTERFACES 
SINCE  REMAINING  CONVECTIVE  INTERFACES  ARE  CONCAVE  TO  FIRST  INTERFACE. 

CALL  Q3STRT 

INVOKE  EASTERN  CONVECTIVE  INTERFACE  AT  X  -  RLIH. 

CALL  Q3EVCT (RICOEF,  RIBBBB,  IlIDCO,  IlMNEQ,  IlMNCO) 

INVOKE  NORTHERN  CCNIVECTIVE  INTERFACE  AT  Y  -  RL2H. 

CALL  Q3NVCT (RICOEF,  RIBBBB,  IlIDCO,  IlMNEQ,  IlMNCO) 

INVOKE  Z  CONDUCTIVE  INTERFACE  AT  Z  -  RT2Z. 

CALL  Q3UDCT (RICOEF,  RIBBBB,  IlIDCO,  IlMNEQ,  IlMNCO) 

IF  LEVEL  1  OUTPUT  REQUESTED,  EXECUTE  SOR  ALC^ORITHM. 

IF  (IlLEVL  .6E.  1) 
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<  BO 


SOLUTION 

FORTRAN. 


CALL  Q5SORM (RIBBBB, RICOEF , IlIDCO, OMEGA, ZBTA, ITMAX, UNKN, IlMNEQ, 
IlMNCO) 


BAND  GE 

CALL  Q8SOLN (RlUNKN) 
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SUBPROGRAMS 


DOUBLE  PRECISION  FUNCTION  A<X,Y,Z) 

IMPLICIT  REAL*8  (A-H,0-Z) 

FUNCTION  A  ASSIGNS  VALUES  FOR  THE  UXX,  UYY,  AND  UZZ  COEFFICIENTS  IN  THE 
ELLIPTIC  EQUATION.  VALUES  ARE  BASED  ON  THE  LOCATION  OF  THE  INTERFACES. 

C0M40N  /  BOXDIM  /  RL,  RLl,  RL2,  RTl,  RT2 
COMMON  /  CINTFC  /  RLIH,  RL2H,  RL3H,  RT2Z 
A  -  l.DO 

IF(Z  .LE.  RT2)  GOTO  10 
IF(X  .GT.  RLIH)  A  -  O.DO 
IF(y  .GT.  RL2H)  A  -  O.DO 
10  RETURN 
END 


DOUBLE  PRECISION  FUNCTION  B(X,Y,Z) 

IMPLICIT  REAL*8  (A-H,0-Z) 

FUNCTION  B  ASSIGNS  VALUES  FOR  THE  U  COEFFICIENT  IN  THE  ELLIPTIC 
EQUATION.  VALUES  ARE  PREDICATED  ON  THE  LOCATION  OF  THE  INTERFACES. 

COMMON  /  BOXDIM  /  RL,  RLl,  RL2,  RTl,  RT2 
COMMON  /  CINTFC  /  RLIH,  RL2H,  RL3H,  RT2Z 
B  -  O.DO 

IF(Z  .LE.  RT2)  GOTO  10 
IF(X  .GT.  RLIH)  B  -  l.DO 
1F(Y  .GT.  RL2H)  B  -  l.DO 
10  RETURN 
END 


DOUBLE  PRECISION  FUNCTION  C(X,Y,Z) 

IMPLICIT  REAL*8  (A-H,0-Z) 

FUNCTION  C  ASSIGNS  VALUES  FOR  THE  RIGHT  HAND  SIDE  IN  THE  ELLIPTIC 
EQUATION.  VALUES  ARE  PREDICATED  ON  THE  LOCATION  OF  THE  INTERFACES. 

COIMOM  /  BOXDIM  /  RL,  RLl,  RL2,  RTl,  RT2 

COIMON  /  CINTFC  /  RLIH,  RL2H,  RL3H,  RT2Z 

COMMCHf  /  MATPRP  /  RKl,  QDTl,  RK2,  QDT2,  H,  UINF 

C  -  CX>T2/RK2 

IF(Z  .LE.  RT2)  GOTO  10 

1F(X  .GT.  RLIH)  C  -  UINF 

1F(Y  .GT.  RL2H)  C  -  UINF 

IF(X  .LE.  RLIH  .AND.  Y  .LE.  RL2H)  C  «  -QDTl/RKl 
10  RETURN 
END 
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SUBROUTINE  Q3STRT 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 


E  L  L  P  A  C  K  DISCRETIZATION  MODULE  PHASE  3D 


PURPOSE 

Q3STRT  INITIALIZES  VARIABLES  USED  IN  THE  INTERTACE  DISCRETIZATION 
THAT  REMAIN  UNCHANGED  THROUGHOUT  THE  PROGRAM  RUN.  THESE  INCLUDE; 

11, J1,K1  —  GRID  POSITIONS  OF  THE  FIRST  UNKNOWN  X,  Y,  &  Z  NODE 

12, J2,K2  —  GRID  POSITIONS  OF  THE  LAST  UNKNOWN  X,  Y,  &  Z  NODE 
NX,NY,NZ  —  NUMBER  OF  UNKNOWN  X,  Y,  &  Z  NODES  ON  THE  GRID 
FIRST  —  LOGICAL  VARIABLE  SET  TO  TRUE  FOR  FIRST  CONVECTIVE 

RUN.  RESET  TO  FALSE  THEREAFTER. 

AUTHOR 
VINCENT  J.  VAN  JOOLEN 
VERSION 
MARCH  1991 


C0M40N  /  CIIVGR  /  IINGRX,  IINGRY,  I1N6RZ,  IINBPT,  IlMBPT,  IIPACK 
CC»®*ON  /  CIBCTY  /  IlBCTY(l) 

COtUOK  /  ISTART/  II,  12,  NX,  Jl,  J2,  MY,  Kl,  K2,  NZ,  FIRST 
LOGICAL  FIRST 

INTEGER  EAST, SOUTH, WEST, NORTH, UPPER, LOWER, CENTER, RHS 
DATA  EAST, SOUTH, NEST, NORTH, UPPER, LOWER, CENTER, RHS, ISDIRC 

A  /  1,  2,  3,  4,  5,  6,  7,  8,  1  / 

NUMBER  OF  X  GRID  POINTS  ON  THE  3-D  DOHAIN  FOR  WHICH  U  IS  UNKNOWN. 

11  -  1 

IF  (IIBCTY(WEST)  .EQ.  ISDIRC)  11-2 

12  -  IINGRX 

IF  (XIBCTY(EAST)  .EQ.  ISDIRC)  12  -  12-1 
NX  -  12  -  11  +  1 

NUMBER  OF  Y  GRID  POINTS  ON  THE  3-D  DOMAIN  FOR  WHICH  U  IS  UNKNOWN. 

Jl  -  1 

IF  (IIBCTY(SOUTH)  .EQ.  ISDIRC)  Jl  -  2 
J2  -  XINORY 

IF  <IlBCTY(HORTH)  .EQ.  ISDIRC)  J2  -  J2-1 
NY  -  J2  -  Jl  +  1 

NUMBER  OF  Z  GRID  POINTS  ON  THE  3-D  DOMAIN  FOR  WHICH  U  IS  UNKNOWN. 

Kl  -  1 

IF  (IIBCTY (LOWER)  .EQ.  ISDIRC)  Kl  -  2 
K2  -  IINGRZ 

IF  (IIBCTY (UPPER)  .EQ.  ISDIRC)  K2  -  K2-1 
NZ  -  K2  -  Kl  +  1 

SET  THE  START  FLAG. 
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FIRST  -  .TRUE. 

RETURN 

END 
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SUBROUTINE  Q3EVCT(C0EF,  BBBB,  IDCO,  MNEQ,  MNCO) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-2) 

Q3EVCT  INVOKES  THE  SUBROUTINES  THAT  WILL  MODIFY  THE  COEFFICIENTS 
GENERATED  BY  MODULE  7  POINT  3D  ALONG  AN  EASTERN  CONVECTIVE 
INTERFACE  (I.E,  FLUID  REGION  TO  THE  EAST  OF  SOLID  REGION). 

INPUTS  FOR  Q3EVCT  ARE; 

X  —  LOCATION  OF  INTERFACE  (I.E.  POSITION  ON  X  AXIS) . 

Y1,Y2  —  Y  BOUNDS  OF  INTERFACE  (I.E.  Y1  <-  Y  <-  Y2) . 

Z1,Z2  —  Z  BOUNDS  OF  INTERFACE  (I.E.  Z1  <-  Z  <-  Z2) . 

Q  —  INTERNAL  HEAT  GENERATION  VALUE  OF  THE  SOLID  MATERIAL. 

RK  —  THERMAL  CONDUCTIVITY  OF  THE  SOLID  MATERIAL. 

TINF  —  AMBIENT  TEMPERATURE  OF  THE  FLUID  MATERIAL. 

H  —  CONVECTION  COEFFICIENT  ALONG  THE  SOLID/FLUID  INTERFACE. 

COMMON  /  ClIVCN  /  I1LEVL,I1INPT,I10UTP,I1SCRA,I1KWRK,I1K0RD 

COMMON  /  BOXDIM  /  RL,  RLl,  RL2,  RTl,  RT2 

COMMON  /  CINTFC  /  RLIH,  RL2H,  RL3H,  RT2Z 

COMMON  /  MATPRP  /  RKl,  QDTl,  RK2,  QDT2,  H,  UINF 

DOUBLE  PRECISION  COEF (MNEQ, MNCO) ,  BBBB  (MNEQ) 

INTEGER  IDCO (MNEQ, MNCO) 

ENTER  MATERIAL  PROPERTY  DATA. 

Q  -  QDTl 

RK  -  RKl 

TINF  -  UINF 

ENTER  LOCATION  AND  BOUNDS  OF  CONVECTIVE  INTERFACE. 

X  -  RLIH 
Y1  -  O.DO 
Y2  -  RL2H 
Z1  -  RT2 
Z2  -  RT1+RT2 

PRINT  HEADER  REPORTING  THAT  CONVECTIVE  SUBROUTINE  WAS  INVOKED. 

IF  (IlLEVL  .GT.  0) 

ACALL  Q8CVHD(Q,RK,TINF,H,'X',X,Y1,Y2,Z1,Z2, ^EASTERN  ') 

MODIFY  THE  COEFFICIENTS  ALONG  THE  INTERFACE. 

CALL  Q3XVCT(X,  Yl,  Y2,  Zl,  Z2,  Q,  RK,  TINF,  H,  1, 

A  COEF,  BBBB,  IDCO,  MNEQ,  MNCO) 

RETURN 

END 


SUBROUTINE  Q3NVCT(COEF,  BBBB,  IDCO,  MNEQ,  MNCO) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Q3NVCT  INVOKES  THE  SUBROUTINES  THAT  WILL  MODIFY  THE  COEFFICIENTS 
GENERATED  BY  MODULE  7  POINT  3D  ALONG  A  NORTHERN  CONVECTIVE 
INTERFACE  (I.E.  FLUID  REGION  TO  THE  NORTH  OF  SOLID  REGION) . 

INPUTS  FOR  Q3NVCT  ARE: 
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XI, X2  —  X  BOUNDS  OF  INTERFACE  (I.E.  XI  <-  X  <-  X2) . 

y  —  LOCATION  OF  INTERFACE  (I.E.  POSITION  ON  Y  AXIS) . 

Z1,Z2  —  Z  BOUNDS  OF  INTERFACE  (I.E.  Z1  <-  Z  <-  Z2) . 

Q  —  INTERNAL  HEAT  GENERATION  VALUE  OF  THE  SOLID  MATERIAL. 

RK  —  THERMAL  CONDUCTIVITY  OF  THE  SOLID  MATERIAL. 

TINF  —  AMBIENT  TEMPERATURE  OF  THE  FLUID  MATERIAL. 

H  —  CONVECTION  COEFFICIENT  ALONG  THE  SOLID /FLUID  INTERFACE. 

COMMON  /  ClIVCN  /  IlLEVL, IlINPT, IlOUTP, IlSCRA, IlKWRK, IlKORD 

COMMON  /  BOXDIM  /  RL,  RLl,  RL2,  RTl,  RT2 

C0f®10N  /  CINTFC  /  RLIH,  RL2H,  RL3H,  RT2Z 

COMMON  /  MATPRP  /  RKl,  QDTl,  RK2,  QDT2,  H,  UINF 

DOUBLE  PRECISION  COEF (MNEQ, MNCO) ,  BBBB (MNEQ) 

INTEGER  IDCO (MNEQ, MNCO) 

ENTER  MATERIAL  PROPERTY  DATA. 

Q  -  QDTl 
RK  -  RKl 
TINF  -  UINF 

ENTER  LOCATION  AND  BOUNDS  OF  CONVECTIVE  INTERFACE. 

Y  -  RL2H 
XI  -  O.DO 
X2  «  RLIH 
Z1  -  RT2 
Z2  -  RT14-RT2 

PRINT  HEADER  REPORTING  THAT  CONVECTIVE  SUBROUTINE  NAS  INVOKED. 

IF  (IlLEVL  .GT.  0) 

ACALL  Q8CVHD  (Q,  RK,  TINF,  H,  '  Y'  ,  Y,X1,  X2,  Zl,  22,  '  NORTHERN'  ) 

MODIFY  THE  COEFFICIENTS  ALONG  THE  INTERFACE. 

CALL  Q3YVCT(Y,  XI,  X2,  Zl,  Z2,  Q,  RK,  TINF,  H,  1, 

A  COEF,  BBBB,  IDCO,  MNEQ,  MNCO) 

RETURN 

END 
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SUBROUTINE  Q3UVCT(COEF,  BBBB,  IDCO,  MNEQ,  MNCO) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Q3UVCT  INVOKES  THE  SUBROUTINES  THAT  WILL  MODIFY  THE  COEFFICIENTS 
GENERATED  BY  MODULE  7  POINT  3D  ALONG  AN  UPPER  CONVECTIVE 
INTERFACE  (I.E.  FLUID  REGION  ABOVE  THE  SOLID  REGION). 

INPUTS  FOR  Q3UVCT  ARE: 

XI, X2  —  X  BOUNDS  OF  INTERFACE  (I.E.  XI  <-  X  <-  X2) . 

Y1,Y2  —  Y  BOUNDS  OF  INTERFACE  (I.E.  Y1  <-  Y  <-  Y2) . 

Z  —  LOCATION  OF  INTERFACE  (I.E.  POSITION  ON  Z  AXIS) . 

QDTl  —  INTERNAL  HEAT  GENERATION  VALUE  OF  THE  SOLID  MATERIAL. 
RK  —  THERMAL  CONDUCTIVITY  OF  THE  SOLID  MATERIAL. 

TINF  —  AMBIENT  TEMPERATURE  OF  THE  FLUID  MATERIAL. 

H  —  CONVECTION  COEFFICIENT  ALONG  THE  SOLID/FLUID  INTERFACE. 

COMMON  /  CllVCN  /  IlLEVL, IlINPT, IlOUTP, IlSCRA, IlKWRK, IlKORD 

COMMON  /  BOXDIM  /  RL,  RLl,  RL2,  RTl,  RT2 

COMMON  /  CINTFC  /  RLlH,  RL2H,  RL3H,  RT2Z 

CO»»«DN  /  MATPRP  /  RKl,  QDTl,  RK2,  QDT2,  H,  UINF 

DOUBLE  PRECISION  COEF (MNEQ, MNCO) ,  BBBB (MNEQ) 

INTEGER  IDCO (MNEQ, MNCO) 

ENTER  MATERIAL  PROPERTY  DATA. 

Q  -  QDT2 
RK  -  RK2 
TINF  -  UINF 

ENTER  LOCUVTION  AND  BOUNDS  OF  CONVECTIVE  INTERFACE. 

Z  -  RL3H 
XI  -  O.DO 
X2  -  RL/2.D0 
Y1  -  O.DO 
Y2  -  RL/2.D0 

PRINT  HEADER  REPORTING  THAT  CONVECTIVE  SUBROUTINE  NAS  INVOKED. 

IF  (IlLEVL  .GT.  0) 

ACALL  Q8CVHD (Q, RK, TINF, H,»Z',Z, XI, X2,Y1,Y2,' UPPER  ') 

MODIFY  THE  COEFFICIENTS  ALONG  THE  INTERFACE 

CALL  Q3ZVCT(Z,  XI,  X2,  Yl,  Y2,  Q,  RK,  TINF,  H,  1, 

A  COEF,  BBBB,  IDCO,  MNEQ,  MNCO) 

RETURN 

END 
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SUBROUTINE  Q3UDCT(COEF,  BBBB,  IDCO,  MNEQ,  MNCO) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Q3UDCT  INVOKES  THE  SUBROUTINES  THAT  WILL  MODIFY  THE  COEFFICIENTS 
GENERATED  BY  MODULE  7  POINT  3D  ALONG  A  CONDUCTIVE  INTERFACE 
THAT  IS  PARALLEL  TO  THE  XY  PLANE. 

DATA  VARIABLES  FOR  Q3UDCT  ARE: 

RKA/RKB  —  THERMAL  CONDUCTIVITY  COEFFICIENT  ON  MATERIAL  BELOW/ 
ABOVE  THE  Z  INTERFACE. 

QA/QB  —  HEAT  GENERATION  COEFFICIENT  OF  MATERIAL  BELOH/ABOVE  THE 
Z  INTERFACE. 

XI, X2  —  X  BOUNDS  FOR  Z  CONDUCTIVE  INTERFACE. 

Y1,Y2  —  Y  BOUNDS  FOR  Z  CONDUCTIVE  INTERFACE. 

Z  —  POINT  AT  WHICH  Z  INTERFACE  INTERSECTS  Z  AXIS. 

C0IB4ON  /  ClIVCN  /  IlLEVL, IlINPT, IlOUTP, IISCRA,  IlKWRK, IlKORD 

C0M40N  /  BOXDIM  /  RL,  RLl,  RL2,  RTl,  RT2 

COI«fON  /  CINTFC  /  RLIH,  RL2H,  RL3H,  RT2Z 

COMfON  /  MATPRP  /  RKl,  QDTl,  RK2,  QDT2,  H,  UINF 

DOUBLE  PRECISION  COEF (MNEQ, MNCO) ,  BBBB (MNEQ) 

INTEGER  IDCO (MNEQ, MNCO) 

ENTER  MATERIAL  PROPERTY  DATA. 


QA 

-  QDT2 

RKA 

-  RK2 

QB 

-  QDTl 

RKB 

-  RKl 

ENTER  LOCATION  AND  BOUNDS  OF  CONDUCTIVE  INTERFACE. 

Z  -  RT2 
XI  -  O.DO 
X2  •  RLIH 
Y1  -  O.DO 
Y2  -  RL2H 

PRINT  HEADER  REPORTING  THAT  CONDUCTIVE  SUBROUTINE  WAS  INVOKED. 
IF  (IlLEVL  .6T.  0) 

ACALL  Q8CDHD(QA,RKA,QB,RKB,'Z',ZrXl,X2,Yl,Y2) 

MODIFY  THE  COEFFICIENTS  KLOHQ  THE  INTERFACE. 

CALL  Q3ZDCT(Z,  XI,  X2,  Yl,  Y2,  QA,  RKA,  QB,RKB, 

A  COEF,  BBBB,  IDCO,  MNEQ,  MNCO) 

RETURN 

END 
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SUBROUTINE  Q3XVCT  (X,  Yl,  Y2,  Zl,  Z2,  Q,  RK,  TINE,  H,  IDIR, 
A  COEE,  BBBB,  IDCO,  MNEQ,  MNCO) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 


E  L  L  P  A  C  K  DISCRETIZATION  MODULE  PHASE  3D 


PURPOSE 

Q3XVCT  MODIEIES  THE  DISCRETE  EQUATIONS  GENERATED  BY  MODULE 
7  POINT  3D  EOR  POINTS  LYING  ON  A  CONVECTIVE  PHASE  INTEREACE  THAT 
IS  PARALLEL  TO  THE  XZ  PLANE  IN  A  3  DIMENSIONAL  RECTANGULAR  REGION. 

INPUTS  AND  LOCAL  VARIABLES  EOR  Q3XVCT  ARE: 

X  —  LOCATION  OF  INTEREACE  (I.E.  POSITION  ON  X  AXIS). 

Y1,Y2  —  Y  BOUNDS  OF  INTERFACE  <I.E.  Yl  <-  Y  <-  Y2) . 

Z1,Z2  —  Z  BOUNDS  OF  INTERFACE  (I.E.  Zl  <-  Z  <-  Z2) . 

Q  —  INTERNAL  HEAT  GENERATION  VALUE  OF  THE  SOLID  MATERIAL. 

RK  —  THERMAL  CONDUCTIVITY  OF  THE  SOLID  MATERIAL. 

TINE  —  AMBIENT  TEMPERATURE  OF  THE  FLUID  MATERIAL. 

H  —  CONVECTION  COEEEICIENT  ALONG  THE  SOLID/FLUID  INTERFACE. 
IDIR  —  DIRECTION  OF  FLUID  REGION  IN  RELATION  TO  THE  INTERFACE. 
(IDIR  -  1  MEANS  FLUID  REGION  TO  THE  NORTH  OF  THE 
SOLID  REGION.  IDIR  -  -1  MEANS  FLUID  REGION  TO  THE 
SOUTH  OF  THE  SOLID  REGION.) 

L3CVCT —  ARRAY  OF  LOGICAL  ELEMENTS  SPECIFYING  IF  A  POINT  LIES 
ON  ONE  OR  MORE  CONVECTIVE  INTERFACES. 

L3BNDY —  ARRAY  OF  LOGICAL  ELEMENTS  SPECIFYING  IF  A  POINT  LIES  ON 
NEQN  —  index  of  EQUATION  CURRENTLY  BEING  MODIFIED. 

CO  —  TEMP.  ARRAY  CONTAINING  EQUATION  COEFFICIENT  VALUES. 
OLDCO  —  TEMP  ARRAY  CONTAINING  PREVIOUS  EQN.  COEFFICIENT  VALUES. 

A  BOUNDARY  OR  IS  OR  ADJACENT  TO  A  DIRICHLET  BOUNDARY. 

E  L  L  P  A  C  K  VARIABLES  USED  AS  INPUTS  FOR  Q3XVCT  ARE: 

MNEQ  NUMBER  OF  EQUATIONS  IN  THE  SYSTEM. 

MNCO  —  NUMBER  OF  COEFFICIENTS  PER  EQUATION. 

COEF  —  COEFFICIENT  FOR  EACH  VARIABLE  OF  EACH  EQUATION. 

BBBB  "  RIGHT  HAND  SIDE  VALUE  OF  EACH  EQUATION. 

IDCO  —  INTEGER  SUBSCRIPT  THAT  IDENTIFIES  POSITION  OF  THE 
VARIABLE  NITHIN  THE  GRID. 

AUTHOR 
VINCENT  J.  VAN  JOOLEN 
VERSION 
FEBRUARY  1991 
NOTE 

USES  JUNE  1978/SEPTEMBER  1982  VERSION  OF  7  POINT  3D  MODULE 
WRITTEN  BY  ROGER  GRIMES. 


COMMON  /  ClIVCN  /  IlLEVL, IlINPT, IlOUTP, IlSCRA, IIKNRK, IlKORD 
CO»««)M  /  CIIVGR  /  IINGRX,  IINGRY,  IINGRZ,  IINBPT,  IlMBPT,  IIPACK 
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C0M40N  /  C16RDX  /  R16BDX(1) 

C(»®10N  /  CIGRDY  /  RlGRDY(l) 

COMMON  /  CIGRDZ  /  RlGRDZ(l) 

C<»MON  /  ISTART/  II,  12,  NX,  Jl,  J2,  NY,  Kl,  K2,  NZ,  FIRST 
COMMON  CO,  OLDCO 

DOUBLE  PRECISION  CO (1 : 10000, 8) , OLDCO (1 ; 10000, 8) 

CCXWDN  L3CVCT,  L3BNDY 

LOGICAL  L3CVCT (1:10000, 6) ,L3BNDy (1:10000, 6) ,  FIRST 
DOUBLE  PRECISION  COEF (MNEQ,  MNCO) 

DOUBLE  PRECISION  BBBB (MNEQ) 

INTEGER  IDCO(MNEQ,  MNCO) 

CHARACTER'S  POSIT (8) 

INTEGER  EAST, SOUTH, WEST, NORTH, UPPER, LOWER, CENTER,  RHS 
DATA  EAST, SOUTH, WEST, NORTH, UPPER, LOWER, CENTER, RHS, ISDIRC 

A  /  1,  2,  3,  4,  5,  6,  7,  8,  1  / 

C 

C  IF  VARIABLE  DIMENSIONS  OF  L3CVCT,  LSBNDT,  CO,  OLDCO  ARE  EXCEEDED 
C  TERMINATE  PROGRAM. 

C 

IF  (MNEQ  .GT.  10000)  THEN 

CALL  QlERRH(17HSUBROUTINE  Q3XVCT, 17) 

WRITE (6, 3) 

3  FORMAT (/'MAXIMUM  DIMENSIONS  OF  ARRAYS  L3CVCT,  L3BNDY,  CO,'/ 

A  'AND  OLDCO  HAVE  BEEN  EXCEEDED.  MODIFY  DIMENSION  '/ 

B  'SPECIFICATION  OR  REDUCE  THE  TOTAL  NTO1BER  OF  GRID  POINTS.'/) 

CALL  QIERRT 
RETURN 


ENDIF 


C 

C  IF  THIS  IS  THE  FIRST  CALL  OF  A  CONVECTIUH  IKTERFACB  SUBROUTINE  THEN 
C  RESET  CONVECTIVE  INTERFACE  FLAGS  AND  RESET  FIRST  FLAG. 

C 

IF  (FIRST)  THEN 

DO  5  I  -  1,  MNEQ 

DO  5  J  -  1,  6 

L3CVCT(I,J)  -  .FALSE. 

L3BNDY(I,J)  -  .FALSE. 

5  CONTINUE 

ENDIF 

FIRST  -  .FALSE. 

C 

C  DETERMINE  THE  GRID  LOCATION  OF  THE  Y  INTERFACE  AND  THE  RANGE  OF 
C  THE  X  AND  Z  BOUNDS. 

C 

CALL  Q4XRNG  (X,  Yl,  Y2,  Zl,  Z2,  IX,  JYl,  JY2,  KZl,  KZ2) 

I  -  IX 

DO  30  K  -  KZl,  KZ2 

DO  30  J  -  JYl,  JY2 


C 

C  DETERMINE  THE  NUMBER  OF  THE  EQUATION  THAT  IS  TO  BE  MODIFIED. 
C 

NEQN  -  (I-Il+l)  +  NX*((J-J1)  +  NY*(K-K1)) 


C 

C 

C 


TEMPORARY  DATA  HEADER  TO  DISPLAY  RELEVANT  PARAMETERS  FOR  DEBUGGING. 
IF  (IlLEVL  .GT.  1)  CALL  Q8BQHD (NEQN) 


C 

C  CALCULATE  THE  PARAMETERS  AT  THE  CURRENT  GRID  POINT  THAT  HILL  BE  USED 
C  FOR  MODIFYING  THE  EQUATION  COEFFICIENTS  ON  THE  INTERFACE. 

C 
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CALL  Q3PARM ( I , J, K, X, DX, A, Y, DY, B, Z , DZ ,  C) 

modify  the  coefficients  of  the  equations  at  the  interface. 

OLDDX2  -  DX**2.D0 

IF  (IDIR  .EQ.  -1)  DX  -  R1GRDX(IX+1)  -  RIGRDX(IX) 
DX2  -  DX**2.D0 
DY2  -  DY**2.D0 
DZ2  -  DZ**2.D0 


***************  evaluate  center  and  RHS  COEFFICIENTS  **************** 
IF  THE  CENTER  AND  RIGHT  HAND  SIDE  COEFFICIENTS  HAVE  NOT  BEEN  PREVIOUSLY 
INITIALIZED  BY  A  CONVECTIVE  SUBROUTINE,  THEN  INITIALIZE  THEM.  IF  THEY 
THEY  HAVE  BEEN  INITIALIZED  THEN  MODIFY  THEIR  VALUES. 


IF  (L3CVCT (NEQN, 

EAST) 

.OR.  L3CVCT(NEQN, 

SOUTH) .OR, 

A 

L3CVCT (NEQN, 

WEST) 

.OR.  L3CVCT(NEQN, 

NORTH)  .OR. 

B 

L3CVCT (NEQN, 

UPPER) 

.OR.  L3CVCT(NEQN, 

LOWER))  THEN 

CO (NEQN, CENTER)  - 

CO (NEQN, CENTER)  - 

H/ (DX*RK) 

A 

+  l.DO/(A*OLDDX2) 

-  1.D0/DX2 

ELSE 


ENDIF 


CO(NEQN,RHS) 

CO (NEQN, CENTER) 
CO(NEQN,RHS) 


-  CO<NEQN,RHS)  -  H*TINF/ (RK*DX) 

-  (H*DX/RK+1.D0) /DX2 

-  l.D0/(B*DY2)  -  l.D0/(C*DZ2) 

-  Q/(2.D0*RK)  -  H*TINF/ (RK*DX) 


************  evaluate  NORTHERN  AND  SOUTHERN  COEFFICIENTS  ************ 
IF  SOUTH  OR  NORTH  COEFFICIENTS  HAVE  NOT  BEEN  SET  BY  A  PREVIOUS  CON¬ 
VECTIVE  SUBROUTINE  THEN  INITIALIZE  THEIR  VALUES,  OTHERWISE  DO  NOTHING. 


IF  (L3CVCT (NEQN, SOUTH)  .OR. 

A  L3CVCT (NEQN, NORTH))  GOTO  15 

CO (NEQN, SOUTH)  -  1 .DO/ ( (B+1 .DO) *DY2) 

CO (NEQN, NORTH)  «  CO (NEQN, SOUTH) /B 

************  evaluate  eastern  and  western  COEFFICIENTS  *********** 
IT  THE  Q3XVCT  IS  INVOKING  A  WESTERN  CONVECTIVE  INTERFACE,  THEN 
SET  THE  WESTERN  CONVECTIVE  INTERFACE  FLAG  AND  INITIALIZE  VALUES  FOR 
WESTERN  COEFFICIENT. 

15  IF  (IDIR  .EQ.  -1)  THEN 

CO (NEQN, EAST)  -  1.O0/DX2 
CO  (NEQN,  WEST)  <■  O.DO 
L3CVCT (NEQN, WEST)  -  .TRUE. 

ENDIF 

IT  THE  Q3XVCT  IS  INVOKING  A  EASTERN  C(»IVECTIVE  INTERFACE,  THEN 
SET  THE  EASTERN  CONVECTIVE  INTERFACE  FLAG  AND  INITIALIZE  VALUES  FOR 
EASTERN  COEFFICIENT. 


IF  (IDIR  .EQ.  1)  THEN 

CO (NEQN, WEST)  -  1.D0/DX2 
CO (NEQN, EAST)  -  O.DO 
L3CVCT (NEQN, EAST)  -  .TRUE. 

ENDIF 

C 

c  ************  evaluate  upper  and  lower  COEFFICIENTS  ********** 
C  IF  UPPER  OR  LONER  COEFFICIENTS  HAVE  NOT  BEEN  SET  BY  A  PREVIOUS 
C  CONVECTIVE  SUBROUTINE  INITIALIZE  THEIR  VALUES,  OTHERWISE  DO  NOTHING. 
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IF  (I.3CVCT  <NBQN,  LOWER)  .OR. 

A  L3CVCT (NEQN, UPPER) )  GOTO  20 

CO (NEQH, LOWER)  -  1 .DO/ ( (C+1 .DO) *DZ2) 

CO (NEQN, UPPER)  -  CO (NEQN, LOWER) /C 

********************  INVOKE  BOUNDARY  CONDITIONS  ********************* 
MODIFY  COEFFICIENTS  IF  THE  GRID  POINT  IS  ADJACENT  TO  A  BOUNDARY. 

20  IF  ((I  ,LE.  2)  .OR.  <I  .GE.  (IlNGRX-1) )  .OR. 

A  <J  .LE.  2)  .OR.  (J  .GE.  (IlNGRY-1) )  .OR. 

B  (K  .LE.  2)  .OR.  (K  .GE.  (IlNGRZ-1) ) ) THEN 

CALL  Q3BNDY (I, J, K, NEQN, X, Y, Z, DX, DY, DZ, L3BNDY, CO, OLDCO) 
ENDIF 

*****************  modify  e  l  l  p  a  c  k  variables  ****************** 

CALL  Q3STCF (COEF, BBBB, IDCO, NEQN, L3CVCT, L3BNDY,MNEQ,MNCO, 

A  CO) 

************  temporary  output  statements  FOR  DEBUGGING  *************** 


IF  (IlLEVL  .GT.  1)  THEN 
A  -  l.DO 

IF  (L3CVCT (NEQN, SOUTH) )  THEM 
B  -  l.DO 

DY  -  R1GRDY(J+1)  -  RIGRDY(J) 

ENDIF 

IF  (L3CVCT (NEQN, NORTH) )  B  -  l.DO 
IF  (L3CVCT (NEQN, LOWER) )  THEN 
C  -  l.DO 

DZ  •  RlGRDZ(K-l-l)  *■  RIGRDZ  (K) 

ENDIF 

IF  (L3CVCT (NEQN, UPPER))  C  -  l.DO 

CALL  Q8EQDT(L3CVCT,NBQN,I,X,DX,A,NX,I1,  0,  0, J,Y,DY,B,NY, Jl, 

A  JYl, JY2, K, Z,DZ, C, NZ, K1,KZ1, KZ2, COEF, IDCO, BBBB,MNEQ,MNCO) 

ENDIF 

30  CONTINUE 

SAVE  CO  VALUES  GENERATED  BY  THIS  CONVECTIVE  INTERFACE  SUBROUTINE  FOR 
USE  IN  ANY  CALLS  TO  CONVECTIVE  INTERFACE  SUBROUTINES  THAT  MAY  FOLLOW. 

I  -  IX 

DO  40  K  -  KZl,  KZ2 

DO  40  J  -  JYl,  JY2 
DO  40  N  -  1,8 

NEW  -  (l-Il+l)  +  NX*((J-J1)  +  NY*(K-K1)) 

OLDCO  (NEQN,  N)  -  CO  (NEQN,  N) 

40  CONTINUE 
RETURN 
END 
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SUBROUTINE  Q3YVCT(Y,  XI,  X2,  Zl,  Z2,  Q,  RK,  TINF,  H,  IDIR, 
A  COEF,  BBBB,  lOCO,  MNEQ,  MNCO) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 


E  L  L  P  A  C  K  DISCRETIZATION  MODULE  PHASE  3D 


PURPOSE 

QSYVCT  MODIFIES  THE  DISCRETE  EQUATIONS  GENERATED  BY  MODULE 
7  POINT  3D  FOR  A  POINT  LYING  ON  A  CONVECTIVE  PHASE  INTERFACE  THAT 
IS  PARALLEL  TO  THE  XZ  PLANE  IN  A  3  DIMENSIONAL  RECTANGULAR  REGION. 

INPUTS  AND  LOCAL  VARIABLES  FOR  Q3YVCT  ARE: 

XI, X2  —  X  BOUNDS  OF  INTERFACE  (I.E.  XI  <-  X  <-  X2) . 

Y  “  LOCATION  OF  INTERFACE  (I.E-  POSITION  ON  Y  AXIS). 

Z1,Z2  —  Z  BOUNDS  OF  INTERFACE  (I.E.  Zl  <-  Z  <-  Z2) . 

Q  —  INTERNAL  HEAT  GENERATION  VALUE  OF  THE  SOLID  MATERIAL. 

RK  —  THERMAL  CONDUCTIVITY  OF  THE  SOLID  MATERIAL. 

TINF  —  AMBIENT  TEMPERATURE  OF  THE  FLUID  MATERIAL. 

H  —  CONVECTION  COEFFICIENT  ALONG  THE  SOLID/FLUID  INTERFACE. 
IDIR  —  POSITION  OF  FLUID  REGION  WITH  RESPECT  TO  THE  INTERFACE. 
(IDIR  -  1  MEANS  FLUID  REGION  TO  THE  NORTH  OF  THE 
SOLID  REGION.  IDIR  «  -1  MEANS  FLUID  REGION  TO  THE 
SOUTH  OF  THE  SOLID  REGION.) 

L3CVCT —  ARRAY  OF  LOGICAL  ELEMENTS  SPECIFYING  IF  A  POINT  LIES 
ON  ONE  OR  MORE  CONVECTIVE  INTERFACES. 

L3BNDY —  ARRAY  OF  LOGICAL  ELEMENTS  SPECIFYING  IF  A  POINT  LIES  ON 
A  BOUNDARY  OR  IS  OR  ADJACENT  TO  A  DIRICHLET  BOUNDARY. 
NEQN  —  INDEX  OF  EQUATICNf  CURRENTLY  BEING  MODIFIED. 

CO  ~  TEMP.  ARRAY  CONTAINING  EQUATION  COEFFICIENT  VALUES. 
OLDCO  —  TEMP  ARRAY  CONTAINING  PREVIOUS  BQN.  COEFFICIENT  VALUES. 

E  L  L  P  A  C  K  VARIABLES  USED  AS  INPUTS  FOR  Q3YVCT  ARE: 

MNEQ  >  NUMBER  OF  EQUATIONS  IN  THE  SYSTEM. 

MNCO  -  NUMBER  OF  COEFFICIENTS  PER  EQUATION. 

COEF  >  COEFFICIENT  FOR  EACH  VARIABLE  OF  EACH  EQUATION. 

BBBB  -  RIGHT  HAND  SIDE  VALUE  OF  EACH  EQUATION. 

IDCO  -  INTEGER  SUBSCRIPT  THAT  IDENTIFIES  POSITION  OF  THE 
VARIABLE  WITHIN  THE  GRID. 

AUTHOR 
VINCENT  J.  VAN  JOOLEN 
VERSION 
FEBRUARY  1991 
NOTE 

USES  JUNE  1978 /SEPTEMBER  1982  VERSION  OF  7  POINT  3D  MODULE 
WRITTEN  BY  ROGER  GRIMES. 


COMMON  /  ClIVCN  /  IlLEVL, IlINPT, IlOUTP, IlSCRA, IlKWRK, IIKORD 
CO»MON  /  CIIVGR  /  IINGRX,  IINGRY,  IINGRZ,  IINBPT,  IlMBPT,  IIPACK 
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C0t«40K  /  CIGRDX  /  R16RDX(1) 

COMMON  /  CIGRDX  /  RlGRDX(l) 

COMMON  /  CIGRDZ  /  RIGRDZ (1) 

COMMON  /  ISTART/  II,  12,  NX,  Jl,  J2,  NY,  Kl,  K2,  NZ,  FIRST 
CC»1M0N  CO,  OLDCO 

DOUBLE  PRECISION  00(1:10000,8),  OLDCO (1 : 10000, 8) 

COMMON  L3CVCT,  LSBNDY 

LOGICAL  L3CVCT (1 : 10000, 6) , L3BHDY (1 : 10000, 6) , FIRST 
DOUBLE  PRECISION  COEF (MNEQ,  MNCO) 

DOUBLE  PRECISION  BBBB (MNEQ) 

INTEGER  IDCO(MNEQ,  MNCO) 

CHARACTER*8  POSIT (8) 

INTEGER  EAST, SOUTH, WEST, NORTH, UPPER, LOWER, CENTER, RHS 
DATA  EAST, SOUTH, WEST, NORTH, UPPER, LOWER, CENTER, RHS ,  ISDIRC 

A  /  1,  2,  3,  4,  5,  6,  7,  8,  1  / 

C 

C  IF  VARIABLE  DIMENSIONS  OF  L3CVCT,  L3BNDY,  CO,  OLDCO  ARE  EXCEEDED 
C  TERMINATE  PROGRAM. 

C 

IF  (MNEQ  .GT.  10000)  THEN 

CALL  QlERRH(17HSUBROUTINE  Q3YVCT,17) 

NRITE(6,3) 

3  FORMAT (/'MAXIMUM  DIMENSIONS  OF  ARRAYS  L3CVCT,  L3BNDY,  CO,'/ 

A  'AND  OLDCO  HAVE  BEEN  EXCEEDED.  MODIFY  DIMENSION  '/ 

B  'SPECIFICATION  OR  REDUCE  THE  TOTAL  NUMBER  OF  GRID  POINTS.'/) 

CALL  QIERRT 
RETURN 

ENDIF 


C 

C  IF  THIS  IS  THE  FIRST  CALL  OF  A  CONVECTION  INTERFACE  SUBROUTINE  THEN 
C  RESET  CONVECTIVE  INTERFACE  FLAGS  AND  RESET  FIRST  FLAG. 

C 

IF  (FIRST)  THEM 

DO  5  I  -  1,  MNEQ 
DO  5  J  -  1,  6 

L3CVCT(1,J)  -  .FALSE. 

L3BNDY(I,J)  •  .FALSE. 

5  CONTINUE 

ENDIF 

FIRST  -  .FALSE. 

C 

C  DETERMINE  THE  GRID  LOCATION  OF  THE  Y  INTERFACE  AMD  THE  RANGE  OF 
C  THE  X  AND  Z  BOUNDS. 

C 

CALL  Q4YRMG(Y,X1,X2,Z1,Z2,  JY,IX1,ZX2,KZ1,KZ2) 

J  -  JY 

DO  30  K  -  KZl,  KZ2 

DO  30  I  -  IXl,  1X2 
C 

C  DETERMINE  THE  NUMBER  OF  THE  EQUATIC»(  THAT  IS  TO  BE  MODIFIED 
C 


NEQH  -  (I-Il+l)  +  NX*((J-J1)  +  HY*(K-K1)) 


C  TEMPORARY  DATA  HEADER  TO  DISPLAY  RELEVANT  PARAMETERS  FOR  DEBUGGING 
C 

IF  (IlLEVL  .GT.  1)  CALL  Q8EQHD(NEQN) 

C 

C  CALCULATE  THE  PARAMETERS  AT  THE  CURRENT  GRID  POINT  THAT  WILL  BE  USED 
C  FOR  MODIFYING  THE  EQUATICHf  COEFFICIENTS  C»f  THE  INTERFACE 
C 
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CALL  Q3PARM(I, J,K,X,DX,A,Y,DY,B,Z,DZ,C) 

MODIFY  THE  COEFFICIENTS  OF  THE  EQUATIONS  AT  THE  INTERFACE 
OLDDY2  -  DY**2.D0 

IF  (IDIR  .EQ.  -1)  DY  -  R1GRDY(JY+1)  -  RIGRDY(JY) 
DX2  -  DX**2.D0 
DY2  -  DY**2.D0 
DZ2  -  DZ**2.D0 


***************  evaluate  center  and  rhs  coefficients  *************** 

IF  THE  CENTER  AND  RIGHT  HAND  SIDE  COEFFICIENTS  HAVE  NOT  BEEN  PREVIOUSLY 
INITIALIZED  BY  A  CONVECTIVE  SUBROUTINE,  THEN  INITIALIZE  THEM.  IF  THEY 
THEY  HAVE  BEEN  INITIALIZED  THEN  MODIFY  THEIR  VALUES. 


A 

B 

A 


A 


IF  (L3CVCT (NEQN,  EAST) 
L3CVCT (NEQN,  WEST) 
L3CVCT(NEQN,  UPPER) 
CO (NEQN, CENTER)  - 

CO (NEQN, RHS) 

ELSE 

CO (NEQN, CENTER)  - 
CO  (NEQN,  RHS) 

ENDIF 


.OR.  L3CVCT(NEQN,  SOUTH) .OR. 
.OR.  L3CVCT(NEQN,  NORTH)  .OR. 
.OR.  L3CVCT(NEQN,  LOWER))  THEN 
CO (NEQN, CENTER)  -  H/ (DY*RK) 

+  l.DO/ (B*OLDDY2)  -  1.D0/DY2 
CO  (NEQN,  RHS)  -  H*TINF/ (RK’*DY) 

-  (H*DY/RK+1.D0) /DY2 

-  l.D0/(A*DX2)  -  l.D0/(C*DZ2) 

-  Q/(2.D0*RK)  -  H*TINF/ (RK*DY) 


************  evaluate  eastern  and  western  coefficients  ************ 

IF  WEST  OR  EAST  COEFFICIENT  HAVE  NOT  BEEN  SET  BY  A  PREVIOUS  CONVECTIVE 
SUBROUTINE  THEN  INITIALIZE  THEIR  VALUES,  OTHERWISE  DO  NOTHING. 


IF  (L3CVCT (NEQN, WEST)  .OR. 

A  L3CVCT (NEQN, EAST) )  GOTO  15 

CO (NEQN, WEST)  -  1 .DO/ ( (A+1 .DO) *DX2) 

CO (NEQN, EAST)  -  CO (NEQN, WEST) /A 

************  evaluate  northern  and  SOUTHERN  COEFFICIENTS  ************ 
IF  Q3YVCT  IS  INVOKING  A  SOUTHERN  CONVECTIVE  INTERFACE,  THEN 
SET  THE  SOUTHERN  CONVECTIVE  INTERFACE  FLAG  AND  INITIALIZE  VALUES  FOR 
NORTH  AND  SOUTH  COEFFICIENTS. 

15  IF  (XDIR  .EQ.  -1)  THEN 

CO (NEQN, NORTH)  -  1.D0/DY2 
CO (NEQN, SOUTH)  -  O.DO 
L3CVCT (NEQN, SOUTH)  -  .TRUE. 

ENDIF 


IF  Q3YVCT  IS  INVOKING  A  NORTHERN  CONVECTIVE  INTERFACE,  THEN 

SET  THE  NORTHERN  CONVECTIVE  INTERFACE  FLAG  AND  INITIALIZE  VALUES  FOR 

NORTH  AND  SOUTH  COEFFICIENTS. 


IF  (XDIR  .EQ.  1)  THEN 

CO (NEQN, SOUTH)  -  1.D0/DY2 
CO (NEQN, NORTH)  -  O.DO 
L3CVCT (NEQN, NORTH)  -  .TRUE. 

ENDIF 

C 

C  ************  evaluate  UPPER  AND  LONER  COEFFICIENTS  ************ 
C  IF  UPPER  OR  LOWER  COEFFICIENTS  HAVE  NOT  BEEN  SET  BY  A  PREVIOUS 
C  CONVECTIVE  SUBROUTINE  INITIALIZE  THEIR  VALUES,  OTHERWISE  DO  NOTHING. 
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IF  (L3CVCT (NBQN, LOWER)  .OR. 

A  L3CVCT (NEQH,  UPPER) )  GOTO  20 

CO (NBQN, LOWER)  -  1 .DO/ ( (C+l.DO) *DZ2) 

CO (NBQN, UPPER)  -  CO (NEQN, LOWER) /C 

********************  INVOKE  BOUNDARY  CONDITIONS  ******************** 


MODIFY 

COEFFICIENTS  IF  THE 

GRID 

POINT  IS 

ADJACENT  TO 

A  BOUNDARY 

20 

IF  ((I  .LE.  2) 

.OR. 

(1 

.GE. 

(IlNGRX-1)  ) 

.OR. 

A 

(J  .LE.  2) 

.OR. 

(J 

.GB. 

(llNGRY-1) ) 

.OR. 

B 

(K  .LE.  2) 

.OR. 

(K 

.GE. 

(IlNGRZ-1)  )  ) 

C  CALL  Q3BNDy(I, J,K,NEQN,X,y,Z,DX,DY,DZ,L3BNDy,CO,OLDCO) 

*****************  modify  e  l  l  p  a  c  k  variables  ****************** 

CALL  Q3STCF (COEF, BBBB, IDCO, NEQN, L3CVCT, L3BNDY, MNEQ, MNCO, 

A  CO) 

************  temporary  output  statements  for  DEBU(3GING  *************** 


IF  (IILBVL  .GT.  1)  THEN 
B  •>  l.DO 

IF  (L3CVCT (NE{W,  WEST))  THEN 
A  -  l.DO 

DX  -  RlGRDX(I-fl)  -  RlGRDXd) 

ENDIF 

IF  (L3CVCT(NEW,  EAST))  A  -  l.DO 
IF  (L3CVCT (NEQN, LOWER) )  THEN 
C  -l.DO 

DZ  •  RlGRDZ(K-t-l)  -  RIGRDZ  (K) 

ENDIF 

IF  (L3C:VCT (NEQN, UPPER))  C  -  l.DO 

CALL  Q8BQDT  (L3CVCT ,  NEQN,  1 ,  X, DX,  A, NX,  11 ,  1X1 ,  1X2 ,  J,  Y,  DY,  B,  NY,  J1 , 

A  0,  0,K,Z,OZ,C,NZ,K1,KZ1,KZ2,COEF,IDCO,BBBB,MNEQ,MNCO) 

ENDIF 

30  CONTINUE 

SAVE  CO  VALUES  GENERATED  BY  THIS  CONVECTIVE  INTERFACE  SUBROUTINE  FOR 
USE  IN  AMY  CALLS  TO  CONVECTIVE  INTERFACE  SXJBROUTINBS  THAT  MAY  FOLLOW. 

J  -  JY 

DO  40  K  -  KZl,  KZ2 

DO  40  I  «  1X1,  1X2 
DO  40  N  -  1,8 

NBQN  -  (1-11+1)  +  HX*((J-J1)  +  NY*(K-K1)) 
OLOCO(NEQN,N)  -  CO (NEQN, N) 

40  CONTINUE 
RETURN 
END 
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SUBROUTINE  Q3ZVCT(Z,  Xl,  X2,  Yl,  Y2,  Q,  RK,  TINF,  H,  IDIR, 
A  COEF,  BBBB,  IDCO,  MHEQ,  MHCO) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 


E  L  L  P  A  C  K  DISCRETIZATION  MODULE  PHASE  3D 


PURPOSE 

Q3ZVCT  MODIFIES  THE  DISCRETE  EQUATIONS  GENERATED  BY  MODULE 
7  POINT  3D  FOR  A  POINT  LYING  ON  A  CONVECTIVE  PHASE  INTERFACE  THAT 
IS  PARALLEL  TO  THE  XY  PLANE  IN  A  3  DIMENSIONAL  RECTANGULAR  REGION. 

INPUTS  AND  LOCAL  VARIABLES  FOR  Q3ZVCT  ARE; 


XI,  X2 
Y1,Y2 
Z 
Q 
RK 
TINF 
H 

IDIR  - 


L3CVCT 

L3BNDY- 

NEQN 
CO 
OLDCO  - 


"  X  BOUNDS  OF  INTERFACE  (I.E.  XI  <-  X  <-  X2) , 

-  Y  BOUNDS  OF  INTERFACE  (I.E.  Y1  <-  Y  <-  Y2) . 

-  LOCATION  OF  INTERFACE  (I.E.  POSITION  ON  Z  AXIS). 

-  INTERNAL  HEAT  GENERATION  VALUE  OF  THE  SOLID  MATERIAL. 

-  THERMAL  CONDUCTIVITY  OF  THE  SOLID  MATERIAL. 

~  AMBIENT  TEMPERATURE  OF  THE  FLUID  MATERIAL. 

-  CONVECTION  COEFFICIENT  ALONG  THE  SOLID/FLUID  INTERFACE. 

-  POSITION  OF  FLUID  REGION  WITH  RESPECT  TO  THE  INTERFACE. 

(IDIR  -  1  MEANS  FLUID  REGION  ABOVE  THE  SOLID  REGION. 
IDIR  -  '1  MEANS  FLUID  REGION  BELOW  THE  SOLID  REGION.) 

-  ARRAY  OF  LOGICAL  ELEMENTS  SPECIFYING  IF  A  POINT  LIES 
ON  ONE  OR  MORE  CONVECTIVE  INTERFACES. 

-  ARRAY  OF  LOGICAL  ELEMENTS  SPECIFYING  IF  A  POINT  LIES  ON 
A  BOUNDARY  OR  IS  OR  ADJACENT  TO  A  DIRICHLET  BOUNDARY. 

-  INDEX  OF  EQUATION  CURRENTLY  BEING  MODIFIED. 

-  TEMP.  ARRAY  CONTAINING  EQUATION  COEFFICIENT  VALUES. 

-  TEMP  ARRAY  CONTAINING  PREVIOUS  EQN.  COEFFICIENT  VALUES. 


E  L  L  P  A  C  R  VARIABLES  USED  AS  INPUTS  FOR  Q3ZVCT  ARB: 

MNEQ  —  NUMBER  OF  EQUATIONS  IN  THE  SYSTEM. 

MNCO  —  NUMBER  OF  COEFFICIENTS  PER  EQUATION. 

COEF  —  COEFFICIENT  FOR  EACH  VARIABLE  OF  EACH  EQUATION. 
BBBB  —  RIGHT  HAND  SIDE  VALUE  OF  EACH  EQUATION. 

IDCO  —  INTEGER  SUBSCRIPT  THAT  IDENTIFIES  POSITION  OF  THE 
VARIABLE  WITHIN  THE  GRID. 

AUTHOR 


VINCENT  J.  VAN  JOOLEN 
VERSION 
FEBRUARY  1991 


NOTE 

USES  JUNE  197 8 /SEPTEMBER  1982  VERSION  OF  7  POINT  3D  MODULE 
WRITTEN  BY  ROGER  GRIMES. 


COI««N  /  CirvCN  /  I1LEVL,I1INPT,I10UTP,I1SCRA,I1KWRK,I1K0RD 
C0M40N  /  CIIVGR  /  IINGRX,  IINGRY,  IINGRZ,  IINBPT,  IlMBPT,  IIPACK 
COtMON  /  C16RDX  /  RlGRDX(l) 
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C0M40N  /  ClGROr  /  RlGROY(l) 

COMMON  /  CIGRDZ  /  RlGROZ(l) 

CC»®40N  /  ISTART/  11,  12,  NX,  Jl,  J2,  NY,  Kl,  IC2,  NZ,  FIRST 
COMMON  CO,  OLDCO 

DOUBLE  PRECISION  00(1:10000,8),  OLDCO (1 : 10000, 8) 

C0M40N  L3CVCT,  L3BNDY 

LOGICAL  L3CVCT (1:10000, 6), L3BNDY (1:10000,  6) ,  FIRST 
DOUBLE  PRECISION  COEF (MNEQ,  MNCO) 

DOUBLE  PRECISION  BBBB (MNEQ) 

INTEGER  IDCO(MNEQ,  MNCO) 

CHARACTER*8  POSIT (8) 

INTEGER  EAST, SOUTH, NEST, NORTH, UPPER, LOWER, CENTER, RHS 
DATA  EAST, SOUTH, NEST, NORTH, UPPER, LOWER, CENTER, RHS, ISDIRC 

A  /  1,  2,  3,  4,  5,  6,  7,  8,  1  / 

IF  VARIABLE  DIMENSIONS  OF  L3CVCT,  L3BHDY,  CO,  OLDCO  ARE  EXCEEDED  ' 

TERMINATE  PROGRAM. 

IF  (MNEQ  .GT.  10000)  THEN 

CALL  Q1ERRH(17HSUBR0UT1N£  Q3ZVCT,17) 

WRITE (6,3) 

3  FORMAT (/'MAXIMUM  DIMENSIONS  OF  ARRAYS  L3CVCT,  L3BNDY,  CO,'/ 

A  'AND  OLDCO  HAVE  BEEN  EXCEEDED.  MODIFY  DIMENSION  '/ 

B  'SPECIFICATION  OR  REDUCE  THE  TOTAL  NUMBER  OF  GRID  POINTS.'/) 

CALL  QIERRT 
RETURN 

ENDIF 

IF  THIS  IS  THE  FIRST  CALL  OF  A  CONVECTION  INTERFACE  SUBROUTINE  THEN 
RESET  CONVECTIVE  INTERFACE  FLAGS  AND  RESET  FIRST  FLAG. 

IF  (FIRST)  THEN 

DO  5  Z  -  1,  MNEQ 
DO  5  J  -  1,  6 

L3CVCT(1,J)  -  .FALSE. 

L3BNDY(Z,J)  •  .FALSE. 

5  CCWTINUE 

ENDIF 

FIRST  •  .FALSE. 

DETERMINE  THE  GRID  LOCATION  OF  THE  Z  INTERFACE  AND  THE  RANGE  OF 
THE  X  AND  Y  BOUNDS. 

CALL  Q4ZRNG(Z,X1,X2,Y1,Y2,KZ,IX1,ZX2,  JYl,  JY2) 

K  -  KZ 

DO  30  I  -  ZXl,  1X2 

DO  30  J  -  JYl,  JY2 

DETERMINE  THE  NUMBER  OF  THE  EQUATION  THAT  IS  TO  BE  MODIFIED. 

NEQN  -  (I-Il+l)  +  NX*((J-J1)  +  NY*(K-K1)) 

TEMPORARY  DATA  HEADER  TO  DISPLAY  RELEVANT  PARAMETERS  FOR  DEBUGGING. 

IF  (IlLEVL  .GT.  1)  CALL  Q8EQHD(NEQN) 

CALCULATE  THE  PARAMETERS  AT  THE  CURRENT  GRID  POINT  THAT  WILL  BE  USED 
FOR  MCX>ZFYING  THE  EQUATION  COEFFICIENTS  (XI  THE  INTERFACE. 

CALL  Q3PABM ( I , J, K, X, DX, A, Y, DY, B, Z , DZ , C) 
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MODIFY  THE  COEFFICIENTS  OF  THE  EQUATIONS  AT  THE  INTERFACE. 
OLDDZ2  -  DZ**2,D0 

IF  (IDIR  .EQ.  -1)  DZ  -  R1GRDZ{KZ+1)  -  R1GRDZ{KZ) 
DX2  -  DX**2.D0 
DY2  -  DY**2.D0 
DZ2  -  DZ**2.D0 


***************  evaluate  center  and  rhs  coefficients  *************** 

IF  THE  CENTER  AND  RIGHT  HAND  SIDE  COEFFICIENTS  HAVE  NOT  BEEN  PREVIOUSLY 
INITIALIZED  BY  A  CONVECTIVE  SUBROUTINE,  THEN  INITIALIZE  THEM.  IF  THEY 
THEY  HAVE  BEEN  INITIALIZED  THEN  MODIFY  THEIR  VALUES. 


IF  (L3CVCT (NEQN,  EAST) 

A 

L3CVCT (NEQN,  WEST) 

B 

L3CVCT(NEQN,  UPPER) 

CO (NEQN, CENTER)  - 

A 

CO  (NEQN,  RHS) 

ELSE 

CO (NEQN, CENTER)  - 

A 

CO  (NEQN,  RHS) 

ENDIF 

•OR.  L3CVCT(NEQN,  SOUTH) .OR. 
•OR.  L3CVCT(NEQN,  NORTH)  .OR. 
.OR.  L3CVCT(HEQN,  LOWER))  THEN 
CO (NEQN, CENTER)  -  H/ (DZ*RK) 

+  l.DO/ (C*OLDDZ2)  -  1.D0/DZ2 
CO{HEQN,RHS)  -  H*TINF/ (RK*DZ) 

-  (H*DZ/RK+1.D0) /DZ2 

-  l.D0/(A*DX2)  -  l.D0/(B*DY2) 

-  Q/(2.D0*RK)  -  H-^TINF/ (RK*DZ) 


************  evaluate  eastern  and  western  coefficients  ************ 

IF  WEST  OR  EAST  COEFFICIENT  HAVE  NOT  BEEN  SET  BY  A  PREVIOUS  CONVECTIVE 
SUBROUTINE  THEN  INITIALIZE  THEIR  VALUES,  OTHERWISE  DO  NOTHING. 

IF  (L3CVCT (NEQN, WEST)  .OR. 

A  L3CVCT (NEQN, EAST) )  GOTO  15 

CO(NBQN,WEST)  -  1 .DO/ ( (A+1 .DO) *DX2) 

CO (NEQN, EAST)  -  CO (NEQN, WEST) /A 

************  evaluate  upper  and  lower  coefficients  ************ 

IF  Q3ZVCT  IS  INVOKING  A  LOWER  CONVECTIVE  INTERFACE,  SET  THE  LOWER  CON¬ 
VECTIVE  INTERFACE  FLAG  AND  INITIALIZE  VALUES  FOR  UPPER  AND  LOWER 
COEFFICIENTS . 

15  IF  (IDIR  .EQ.  -1)  THEN 

CO (NEQN, UPPER)  -  1.D0/DZ2 
CO (NEQN, LONER)  -  O.DO 
L3CVCT (NEQN, LOWER)  -  .TRUE. 

ENDIF 

IF  Q3ZVCT  IS  INVOKING  AN  UPPER  CONVECTIVE  INTERFACE,  THEN 

SET  THE  UPPER  CONVECTIVE  INTERFACE  FLAG  AND  INITIALIZE  VALUES  FOR 

UPPER  AND  LOWER  COEFFICIENTS. 


IF  (IDIR  .EQ.  1)  THEN 

CO (NEQN, LOWER)  -  1.D0/DZ2 
CO (NEQN, UPPER)  -  O.DO 
L3CVCT (NEQN, UPPER)  -  .TRUE. 

ENDIF 

************  evaluate  NORTHERN  AND  SOUTHERN  COEFFICIENTS  ************ 
IF  NORTH  OR  SOUTH  COEFFICIENTS  HAVE  NOT  BEEN  SET  BY  A  PREVIOUS 
CCNIVECTIVE  SUBROUTINE  INITIALIZE  THEIR  VALUES,  OTHERWISE  DO  NOTHING. 
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IF  (LSCVCT <NEQN, SOUTH)  .OR. 

A  L3CVCT (MEQN, NORTH) )  GOTO  20 

CO (NEQN, SOOTH)  -  1 .DO/ ( (B+1 .DO) *DY2) 

CO  (NEQN,  NORTH)  -  CO  (NEQN,  SOUTH) /B 

********************  INVOKE  BOUNDARY  CONDITIONS  ********************* 
MODIFY  COEFFICIENTS  IF  THE  GRID  POINT  IS  ADJACENT  TO  A  BOUNDARY. 

20  IF  ((I  .LE.  2)  .OR.  (I  .GE.  (IlNGRX-l))  .OR. 

A  (J  .LE.  2)  .OR.  (J  .GB.  (IlNGRY-1))  .OR. 

B  (K  .LE.  2)  .OR.  (K  .GE.  <I1NGRZ-1) ) ) 

C  CALL  Q3BNDY (I, J, K, NEQN, X, Y, Z, DX, DY, DZ, L3BNDY, CO, OLDCO) 

*****************  modify  E  L  L  P  a  C  K  VARIABLES  ****************** 

CALL  Q3STCF (COEF,BBBB, IDCO, NEQN, L3CVCT, L3BNDY,MNEQ,MNCO, 

A  CO) 

************  temporary  output  statements  for  debugging  *************** 

IF  (IlLEVL  .GT.  1)  THEN 
C  -  l.DO 

IF  (L3CVCT (HE<^,  NEST))  THEM 
A  -  l.DO 

DX  -  RlGRDXd+l)  -  RIGRDX(I) 

ENDIF 

IF  (L3CVCT (NEQN,  EAST))  A  -  l.DO 
IF  (L3CVCT (NEQN, SOUTH) )  THEN 
B  -  l.DO 

DY  -  R16RDY<J-»-l)  >  RIGRDY(J) 

ENDIF 

IF  (L3CVCT(NE(»(, NORTH))  B  -  l.DO 

CALL  Q8EQDT  (L3CVCT,  NEC»f ,  Z,X,DX,A,NX,  II,  1X1, 1X2,  J,  Y,DY,B,NY,  Jl, 

A  JYl, JY2,K,Z,OZ,C,NZ,Kl,  0,  0,COBF,IDCO,BBBB,MHBQ,MNCO) 

ENDIF 

30  CONTINUE 

SAVE  CO  VALUES  GENERATED  BY  THIS  CCXIVECTIVE  INTERFACE  SUBROUTINE  FOR 
USE  IN  AMY  CALLS  TO  CONVECTIVE  INTERFACE  SUBROUTINES  THAT  MAY  FOLLON. 

K  -  KZ 

DO  40  I  -  1X1,  1X2 

DO  40  J  -  JYl,  JY2 
DO  40  N  -  1,8 

NEW  -  (l-Il+l)  +  HX*((J-J1)  +  NY*(K-K1)) 

OLDCO  (ME(^,N)  -  CO  (NEQN,  N) 

40  CONTINUE 
RETURN 
END 
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SUBROUTINE  Q3  ZDCT ( Z , Xl , X2 , Y1 , y2 , QA, RKA, QB , RKB, 
A  COEr , BBBB, IDCO, MNEQ, MNCO) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 


E  L  L  P  A  C  K  DISCRETIZATION  MODULE  PHASE  3D 


PURPOSE 


Q3ZDCT  MODIFIES  THE  DISCRETE  EQUATIONS  GENERATED  BY  MODULE 
7  POINT  3D  FOR  A  POINT  LYING  ON  A  CONDUCTIVE  INTERFACE  THAT  IS 
PARALLEL  TO  THE  XY  PLANE  IN  A  3  DIMENSIONAL  RECTANGULAR  REGION. 


DATA  VARIABLES  FOR  Q3ZDCT  ARE: 


RKA/RKB  — 

QA/QB 

XI, X2 
Y1,Y2 
Z 

NEQN 

CO 

OLDCO 


THERMAL  CONDUCTIVITY  COEFFICIENT  ON  MATERIAL  BELOW/ 
ABOVE  THE  Z  INTERFACE. 

HEAT  GENERATION  COEFFICIENT  OF  MATERIAL  BELOW/ABOVE  THE 
Z  INTERFACE. 

X  BOUNDS  FOR  Z  CONDUCTIVE  INTERFACE. 

Y  BOUNDS  FOR  Z  CONDUCTIVE  INTERFACE. 

POINT  AT  WHICH  Z  INTERFACE  INTERSECTS  Z  AXIS. 

INDEX  OF  EQUATION  CURRENTLY  BEING  MODIFIED. 

TEMP.  ARRAY  CONTAINING  EQUATION  COEFFICIENT  VALUES. 

TEMP  ARRAY  CONTAINING  PREVIOUS  EQN.  COEFFICIENT  VALUES. 


AUTHOR 
VINCENT  J.  VAN  JOOLEN 


VERSION 
MARCH  1991 


NOTE 

USES  JUNE  1978/SEPTEMBER  1982  VERSION  OF  7  POINT  3D  MODULE 
WRITTEN  BY  ROGER  GRIMES. 


C0M40N  /  ClIVCN  /  IILBVL, IlINPT, IlOUTP, IlSCRA, IlKWRK, IlKORD 
COraiON  /  CIIVGR  /  IINGRX,  IINGRY,  I1N6RZ,  IIHBPT,  IlMBPT,  IIPACR 

C0M40N  /  CIGRDX  /  R16RDX(1) 

CCBMON  /  CIGRDY  /  RlGRDY(l) 

C0M40N  /  CIGRDZ  /  RlGROZ(l) 

C0M40N  /  ISTART/  II,  12,  NX,  Jl,  J2,  NY,  Kl,  K2,  NZ,  FIRST 
COMMON  CO,  OLDCO 

DOUBLE  PRECISION  C0(l:10000,8) ,  OLDCO (1 : 10000, 8) 

COMMON  L3CVCT,  L3BNDY 

LOGICAL  L3CVCT <1:10000, 6), L3BNDY (1:10000, 6) ,  FIRST 
DOUBLE  PRECISION  COEF (MNEQ,  MNCO) 

DOUBLE  PRECISIC»I  BBBB (MNEQ) 

INTEGER  IDCO (MNEQ,  MNCO) 

CHARACTER*8  POSIT (8) 

INTEGER  EAST, SOUTH, WEST, NORTH, UPPER, LONER, CENTER, RHS 
DATA  EAST, SOUTH, NEST, NORTH, OTPER, LONER, CENTER, RHS, ISDIRC 

A  /  1,  2,  3,  4,  5,  6,  7,  8,  1  / 
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ir  VARIABLE  DIMENSIONS  OF  L3CVCT,  L3BNDY,  CO,  OLDCO  ARE  EXCEEDED 
TERMINATE  PROGRAM. 

IF  (MNEQ  -GT.  10000)  THEN 

CALL  QlERRH{17HSUBROUTINB  Q3ZDCT, 17) 

WRITE (6, 3) 

3  FORMAT (/'MAXIMUM  DIMENSIONS  OF  ARRAYS  L3CVCT,  L3BNDY,  CO,'/ 

A  'AND  OLDCO  HAVE  BEEN  EXCEEDED.  MODIFY  DIMENSION  '/ 

B  'SPECIFICATION  OR  REDUCE  THE  TOTAL  NUMBER  OF  GRID  POINTS.'/) 

CALL  QIERRT 
RETURN 

ENDIF 


RESET  CONVECTIVE  INTERFACE  FLAGS. 

DO  5  I  -  1,  MNEQ 

DO  5  J  -  1,  6 

L3CVCT(I,J)  -  .FALSE. 
L3BNDY(I,J)  -  .FALSE. 

5  CONTINUE 


DETERMINE  THE  GRID  LOCATION  OF  THE  Z  INTERFACE  AND  THE  RANGE  OF 
THE  X  AND  Y  BOUNDS. 

CALL  Q4ZRNG(Z,X1,X2,Y1,Y2,KZ,ZX1,IX2, JYl, JY2) 

K  -  KZ 

DO  30  I  -  IXl,  1X2 

DO  30  J  -  JYl,  JY2 

DETERMINE  THE  NUMBER  OF  THE  EQUATION  THAT  IS  TO  BE  MODIFIED. 

NEQN  -  (I-Il+l)  +  MX*((J-J1)  +  MY*(K-K1)) 

TEMPORARY  DATA  HEADER  TO  DISPLAY  RELEVANT  PARAMETERS  FOR  DEBUGGING. 

IF  (IlLEVL  .GT.  1)  CALL  Q8EQHD (NEQN) 

CALCULATE  THE  PARAMETERS  AT  THE  CXnUlENT  GRID  POINT  THAT  WILL  BE  USED 
FOR  MODIFYING  THE  EQUATION  COEFFICIENTS  ON  THE  INTERFACE. 

CALL  Q3PARM  (I, J,K,X,PX,A, Y,DY,B, Z,DZ,C) 

MODIFY  THE  COEFFICIENTS  OF  THE  EQUATIONS  AT  THE  INTERFACE. 

RK  RKB/RKA 
DX2  -  DX**2.D0 
DY2  -  DY**2.D0 
DZ2  -  DZ**2.D0 


********************  DETERMINE  NEW  COEFFICIENTS  ******************** 
DETERMINE  THE  NEW  VALUES  OF  THE  COEFFICIENTS  OF  THE  DISCRETE 
EQUATION  AT  THE  POINT  (X,Y,Z)  WHICH  LIES  ON  THE  INTERFACE. 


A 


CO (NEQN, CENTER) 

CO (NEQN,  LONER) 
CO (NEQN,  UPPER) 
CO(NE<^,  WEST) 
CO (NEQN,  EAST) 


(RK+C)/C  +  (l.D0+C)*DZ2/(A*DX2) 
+  (l.DO+C) *DZ2/ (B*DY2) 

-l.DO 

-RK/C 

- (1 .DO+C) *DZ2/ ( (1 .DO+A) *DX2) 

CO (NEQN,  WEST) /A 
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CO(NEQN,  SOUTH)  -  - (1 .DO+C) *DZ2/ ( (1 .DO+B) *DY2) 

CO(NEQN,  NORTH)  -  CO(NEQN,  SOUTH) /B 

DETERMINE  BASE  VALUE  FOR  THE  MODIFIED  RIGHT  HAND  SIDE  OF  THE 
DISCRETE  EQUATION  AT  THE  POINT  {X,Y,Z)  ON  THE  INTERFACE. 

CO(NEQN,  RHS)  -  ( . 5D0*DZ2/RKA) * (QA  +  C*QB) 

********************  invoke  boundary  conditions  ******************** 

MODIFY  COEFFICIENTS  IF  THE  GRID  POINT  IS  ADJACENT  TO  A  BOUNDARY. 

IF  ((I  .LE.  2)  .OR.  (I  .GE.  (IlNGRX-1) )  .OR. 

A  (J  .LE.  2)  .OR.  (J  .GE.  (IlNGRY-1) )  .OR. 

B  (K  .LE.  2)  .OR.  <K  .GE.  (IlNGRZ-1) ) ) 

C  CALL  Q3BNDY(I, J,K,NEQN,X,Y,Z,DX,DY,DZ,L3BNDY,CO,OLDCO) 

*****************  modify  E  L  L  P  a  C  K  VARIABLES  ****************** 

CALL  Q3STCF (COEF, BBBB, IDCO,NEQN, L3CVCT, L3BNDY,MNEQ,MNCO, 

A  CO) 

************  temporary  output  STATEMENTS  FOR  DEBUGGING  *************** 
IF  (IlLEVL  .GT.  1) 

ACALL  Q8EQDT (L3CVCT,NEQN, I,X,DX,A,NX, II, IXl, 1X2, J, Y,DY, B, NY, Jl, 

B  JYl, JY2,K, Z,DZ,C,NZ,K1,  0,  0,  COEF, IDCO, BBBB,MNEQ,MNCO) 

30  CONTINUE 
RETURN 
END 


137 


orto  ooo  noooooooooooooooooooooooooonoo 


SUBROUTINE  Q3PARM  (I,  J,  K,  X,  DX,  A,  Y, DY,  B,  Z ,  DZ ,  C) 
IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 


E  L  L  P  A  C  K  DISCRETIZATION  MODULE  PHASE  3D 


PURPOSE 

Q3PARM  RETURNS  THE  PARAMETERS  NECESSARY  TO  MODIFY  THE  COEFFICIENTS 
OF  THE  EQUATIONS  ON  THE  INTERFACE  OF  A  THREE  DIMENSIONAL  NON- 
UNIFORM  GRID.  THE  VALUES  RETURNED  ARE: 

X  —  X  VALUE  OF  THE  (I,J,K)  GRID  POINT. 

Y  —  Y  VALUE  OF  THE  (I,J,K)  GRID  POINT. 

Z  —  Z  VALUE  OF  THE  (I,J,K)  GRID  POINT. 

DX  —  DISTANCE  BETWEEN  X(I,J,K)  AND  X(I-1,J,K). 

DY  —  DISTANCE  BETWEEN  Y(I,J,K)  AND  Y(I,J-1,K). 

DZ  —  DISTANCE  BETWEEN  Z(I,J,K)  AND  Z(I,J,K-1). 

A  —  DISTANCE  BETWEEN  X(I,J,K)  AND  X(I+1,J,K)  DIVIDED  BY  DX. 

B  —  DISTANCE  BETWEEN  Y<I,J,K)  AND  X(I,J+1,K)  DIVIDED  BY  DY. 

C  —  DISTANCE  BETWEEN  Z(I,J,K)  AND  Z(I,J,K+1)  DIVIDED  BY  DZ . 

AUTHOR 

VINCENT  J.  VAN  JOOLEN 

VERSION 

FEBRUARY  1991 


COMMON  /  CIIVGR  /  IINGRX,  I1N6RY,  IINGRZ,  IINBPT,  IlMBPT,  IIPACK 
C0»®10N  /  CIGRDX  /  RlGRDX(l) 

COMMON  /  CIGRDY  /  RlGRDY(l) 

COMMON  /  CIGRDZ  /  RlGRDZ(l) 

SET  X  AXIS  PARAMETERS  THAT  WILL  BE  USED  TO  MODIFY  INTERFACE  EQUATIONS. 


X 

• 

RIGRDX(I) 

IF 

(I  .NE.  1) 

xw 

* 

RlGRDX(I-l) 

IF 

(I  .NE.  IINGRX) 

XE 

— 

R16RDX(I+1) 

IF 

(I  .NE.  1)  THEN 

DX 

X-XW 

A 

iB 

(XE-X) /DX 

ELSE 

OX 

m 

XE-X 

A 

— 

l.DO 

ENDIF 

IF 

(I  .EQ.  IINGRX) 

A 

- 

l.DO 

SET  Y  AXIS  PARAMETERS  THAT  WILL  BE  USED  TO  MODIFY  INTERFACE  EQUATIONS. 


Y 

m 

RIGROY(J) 

IF 

(J  .NF.  1) 

YS 

— 

RlGRDY(J-l) 

IF 

(J  .NE.  Z1N6RY) 

YN 

• 

R1GRDY(J+1) 

IF 

(J  .NE.  1)  THEN 

DY 

Y-YS 

B 

• 

(YN-Y) /DY 

ELSE 
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DY  -  YN-Y 
B  -  l.DO 

ENDIF 

IF  (J  .EQ.  IINGRY)  B  -  l.DO 

SET  Z  AXIS  PARAMETERS  THAT  WILL  BE  USED  TO  MODIFY  INTERFACE  EQUATIONS. 


Z 

-  RIGRDZ(K) 

IF  (K  .NE. 

1) 

ZL 

-  R1GRDZ<K-1) 

IF  (K  .NE. 

IINGRZ) 

ZU 

-  R1GRD2(K+1) 

IF  (K  .NE. 

1)  THEN 

DZ 

-  Z-ZL 

C 

-  {ZU-Z)/DZ 

ELSE 

DZ 

-  ZU-Z 

C 

-  l.DO 

ENDIF 

IF<K  .BQ. 

IINGRZ) 

C 

-  l.DO 

RETURN 

END 
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SUBROUTINE  QSBNDY (I, J, K, NEQN,X, Y, Z, DX, DY, DZ, L3BNDY, CO, OLDCO) 
IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 


E  L  L  P  A  C  K  DISCRETIZATION  MODULE  PHASE  3D 


PURPOSE 


Q3BNDY  MODIFIES  THE  VALUES  OF  THE  EQUATION  COEFFICIENTS  OF  THE  GRID 
POINT  (I,J,K)  IS  ON  OR  ADJACENT  TO  A  SPECIFIED  BOUNDARY. 


INPUTS  FOR  Q3BNDY  ARE: 


X,Y,Z  --  X,Y,Z  VALUE  OF  THE  (I,J,K)  GRID  POINT. 

DX  --  DISTANCE  BETWEEN  X(I,J,K)  AND  X(I-1,J,K). 

DY  —  DISTANCE  BETWEEN  Y(I,J,K)  AND  Y(I,J-1,K). 

DZ  —  DISTANCE  BETWEEN  Z(I,J,K)  AND  Z(I,J,K-1). 

CO  —  TEMP  ARRAY  CONTAINING  EQUATION  COEFFICIENT  VALUES. 

NEQN  —  INDEX  OF  EQUATION  CURRENTLY  BEING  MODIFIED. 

OLDCO  —  TEMP  ARRAY  CONTAINING  PREVIOUS  EQN.  COEFFICIENT  VALUES. 
L3BNDY —  ARRAY  OF  LOGICAL  ELEMENTS  SPECIFYING  IF  A  POINT  LIES  ON 
A  BOUNDARY  OR  IS  OR  ADJACENT  TO  A  DIRICHLET  BOUNDARY. 


AUTHOR 
VINCENT  J.  VAN  JOOLEN 
VERSION 
FEBRUARY  1991 


COMMON 

/ 

ClIVCN 

/ 

IILBVL, 

lllNPT, 

IlOUTP, 

IlSCRA, 

IIKNRK, 

IIKORD 

COMMON 

/ 

CllVGR 

/ 

IINGRX, 

IINGRY, 

IINGRZ, 

IINBPT, 

IIMBPT, 

IIPACK 

COMMON 

/ 

C1RV6R 

/ 

RIAXGR, 

RIAYGR, 

RIAZGR, 

RIBXGR, 

RIBYGR, 

A 

RIBZGR, 

RIHXGR, 

RIHYGR, 

R1HZ6R 

COIMON 

/ 

CIBCTY 

/ 

IlBCTY(l) 

DOUBLE  PRECISION  BVALUE(4) 

DOUBLE  PRECISION  CO(l : 10000, 8) ,  OLDCO (1 : 10000, 8) 

INTEGER  EAST, SOUTH, NEST, NORTH, UPPER, LOWER, CENTER, RHS 
DATA  EAST, SOUTH, WEST, NORTH, UPPER, LOWER, CENTER, RHS, ISDIRC 

A  /  1,  2,  3,  4,  5,  6,  7,  8,  1  / 

INTEGER  BCOEUU,  BCOEUX,  BCOEUY,  BCOEUZ 
DATA  BCOEUU,  BCOEUX,  BCOEUY,  BCOEUZ 
A  /  I,  2,  3,  4  / 

LOGICAL  L3BNDY (1:10000, 6) 
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C  *****!«.***★*************  eastern  boundary  ************************ 
C  IF  BOUNDARY  MODIFICATIONS  HAVE  BEEN  MADE  BY  A  PREVIOUS  CALL  OF  A 
C  CONVECTIVE  SUBROUTINE  MAKE  NO  FURTHER  MODIFICATIONS  ON  EAST  BOUNDARY. 
C 

IF  (L3BNDY (NEQN, EAST) )  GOTO  48 


SET  EAST  COEFFICIENT.  MAKE  MODIFICATIONS  IF  (X,Y,Z)  IS 
ADJACENT  TO  THE  EASTERN  BOUNDARY. 

IF  (I  .6E.  (IINGRX-D)  BNDRHS  -  RIBRHS  (EAST,R1BXGR,  Y,  Z) 

IF  (IlLEVL  .GT.  1)  THEN 

IF( (I.EQ.IINGRX)  .OR.  (I .EQ. (IlNGRX-1)  .AND.  IIBCTY (EAST) . EQ. 1) ) 

A  CALL  Q8BDAT (CO (NEQN, EAST) ,  BNDRHS,  IIBCTY (EAST) , '  EAST') 

ENDIF 

MODIFY  RIGHT  HAND  SIDE  OF  EQUATION  IF  ADJACENT  TO  DIRICHLET  BOUNDARY. 

IF  (I  .EQ.  (IlNGRX-1)  .AND.  IIBCTY(EAST)  .EQ.  ISDIRC)  THEN 
CO(NEQN,RHS)  -  CO(NEQN,RHS)  -  CO (NEQN, EAST) *BNDRHS 
L3BNDY (NEQN, EAST)  -  .TRUE. 

GOTO  50 

ENDIF 

MODIFY  CENTER  COEFFICIENT,  WEST  COEFFICIENT,  AND  RIGHT  HAND  SIDE 
OF  EQUATION  IF  ADJACENT  TO  A  MIXED  BOUNDARY. 

IF  (I  .EQ.  IINGRX)  THEN 

CALL  QIBCOE (EAST, RIBXGR, Y, Z, BVALUE) 

CU  «  BVALUE (BCOEUU) 

CUX  -  BVALUE (BCOEUX) 

CO (NEQN, CENTER)  -  CO (NEQN, CENTER) 

A  -  2.DO*CU*CO(NEQN,EAST)*DX/CUX 

CO (NEQN, WEST)  «  CO (NEQN, WEST)  +  CO (NEQN, EAST) 

CO(NEQN,RHS)  -  CO(NEQN,RHS) 

A  -  2.DO*CO(NEQN,EAST)*DX*BNDRHS/CUX 

L3BNDY (NEQN, EAST)  -  .TRUE. 

ENDIF 

IF  THE  CONVECTIVE  SUBROUTINE  SETS  THE  EASTERN  COEFFICIENT  EQUAL  TO 
ZERO,  THEN  UNDO  ON  PREVIOUS  BOUNDARY  MODIFICATIONS  THAT  MAY  HAVE 
BEEN  MADE  FOR  AN  EASTERN  DIRICHLET  BOUNDARY. 

48  IF  (CO (NEQN, EAST)  .EQ.  O.DO  .AND.  IIBCTY(EAST)  .EQ.  ISDIRC 

A  .AND.  OLDCO (NEQN, EAST)  .NE.  O.DO  .AND.  I .EQ. (I1N6RX-1) ) THEN 
CO(NEQN,RHS)  -  CO(NEQN,RHS)  OLDCO  (NEQN,  EAST)  *  BNDRHS 
IF  (IlLEVL  .GT.  1) 

A  CALL  Q8BRST  (OLDCO (NE<^, EAST) , BNDRHS, IIBCTY (EAST) , '  EAST') 

ENDIF 

***********************  NORTHERN  BOUNDARY  *************************>* 
IF  BOUNDARY  MODIFICATIONS  HAVE  BEEN  MADE  BY  A  PREVIOUS  CALL  OF  A 
CONVECTIVE  SUBROUTINE  MAKE  NO  FURTHER  MODIFICATIONS  ON  NORTH  BOUNDARY. 

50  IF  (L3BNDY (NEQN, NORTH) )  GOTO  53 

SET  NORTH  COEFFICIENT.  MAKE  MODIFICJITIONS  IF  (X,Y,Z)  IS 
ADJACENT  TO  THE  NORTHERN  BOUNDARY. 
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IF  (J  .GE.  (IlHGRY-1))  BNDRHS  -  RIBRHS (NORTH, X,R1BYGR, Z) 

IF  (IlLEVL  .GT.  1)  THEN 

IF( (J.EQ.IINGRY)  .OR.  (J.EQ. (IlNGRY-1)  .AND.  IIBCTY (NORTH) .EQ.l) ) 
A  CALL  Q8BDAT (CO (NEQN, NORTH) ,  BNDRHS,  IIBCTY (NORTH) , ' NORTH' ) 

ENDIF 

MODIFY  RIGHT  HAND  SIDE  OF  EQUATION  IF  ADJACENT  TO  DIRICHLET  BOUNDARY 

IF  (J  .EQ.  (IlNGRY-1)  .AND.  IIBCTY (NORTH)  .EQ.  ISDIRC)  THEN 
CO(NEQN,RHS)  -  CO(NEQN,RHS)  -  CO (NEQN, NORTH) *BNDRHS 
L3BNDY (NEQN, NORTH)  -  .TRUE. 

GOTO  55 

ENDIF 

MODIFY  CENTER  COEFFICIENT,  SOUTH  COEFFICIENT,  AND  RIGHT  HAND  SIDE 
OF  EQUATION  IF  ADJACENT  TO  A  MIXED  BOUNDARY. 

IF  (J  .EQ.  IINGRY)  THEN 

CALL  QIBCOE (NORTH, X,R1BYGR,Z,BVALUE) 

CU  *  BVALUE (BCOEUU) 

CUY  -  BVALUE (BCOEUY) 

CO (NEQN, CENTER)  -  CO (NEQN, CENTER) 

A  -  2. DO*CU*CO (NEQN, NORTH) *DY/CUY 

CO (NEQN, SOUTH)  -  CO (NEQN, SOUTH)  +  CO (NEQN, NORTH) 

CO(HEQN,RHS)  -  CO(NEQN,RHS) 

A  -  2. DO*CO (NEQN, NORTH) *DY*BNDRHS/CUY 

L3BNDY (NEQN, NORTH)  -  .TRUE. 

GOTO  55 

ENDIF 

IF  THE  CONVECTIVE  SUBROUTINE  SETS  THE  NORTHERN  COEFFICIENT  EQUAL  TO 
ZERO,  THEN  UNDO  ON  PREVIOUS  BOUNDARY  MODIFICATIONS  THAT  MAY  HAVE 
BEEN  MADE  FOR  A  NORTHERN  DIRICHLET  BOUNDARY. 

53  IF  (CO (NEQN, NORTH)  .EQ.  O.DO  .AND.  IIBCTY (NORTH)  .EQ.  ISDIRC 
A  .AND.  OLDCO (NEQN, NORTH)  .NE.  O.DO  .AND.  J.EQ. (IlNGRY-1) ) THEN 
CO(NEQM,RHS)  -  CO(NEQN,RHS)  -f  OLDCO  (NEQN,  NORTH)  *BNDRHS 
IF  (IlLEVL  .GT.  1) 

A  CALL  Q8BRST  (OLDCO (NEQN, NORTH) , BNDRHS, IIBCTY (NORTH) , ' NORTH' ) 

ENDIF 
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Q  ***********************  UPPER  BOUNDARY  *************************** 
C  IF  BOUNDARY  MODIFICATIONS  HAVE  BEEN  MADE  BY  A  PREVIOUS  CALL  OF  A 
C  CONVECTIVE  SUBROUTINE  MAKE  NO  FURTHER  MODIFICATIONS  ON  UPPER  BOUNDARY, 
C 

55  IF  (L3BNDY (NEQN, UPPER) )  GOTO  58 

SET  UPPER  COEFFICIENT.  MAKE  MODIFICATIONS  IF  (X,Y,Z)  IS 
ADJACENT  TO  THE  UPPER  BOUNDARY. 

IF  <K  .GE.  (IlNGRZ-1))  BNDRHS  -  RIBRHS (UPPER, X, Y, RIBZGR) 

IF  (IlLEVL  .GT.  1)THEN 

IF( (K.EQ.IINGRZ)  .OR.  (K.EQ. (IlNGRZ-1)  .AND.  IIBCTY (UPPER) . EQ. 1) ) 

A  CALL  Q8BDAT (CO (NEQN, UPPER) ,  BNDRHS,  IIBCTY (UPPER) ,' UPPER' ) 

ENDIF 

MODIFY  RIGHT  HAND  SIDE  OF  EQUATION  IF  ADJACENT  TO  DIRICHLET  BOUNDARY. 

IF  (K  .EQ.  (IlNGRZ-1)  .AND.  IIBCTY (UPPER)  .EQ.  ISDIRC)  THEN 
CO(NEQN,RHS)  -  CO(NEQN,RHS)  -  CO (NEQN, UPPER) *BNDRHS 
L3BNDY (NEQN, UPPER)  -  .TRUE. 

GOTO  60 

ENDIF 

MODIFY  CENTER  COEFFICIENT,  LOWER  COEFFICIENT,  AND  RIGHT  HAND  SIDE 
OF  EQUATION  IF  ADJACENT  TO  A  MIXED  BOUNDARY. 

IF  (K  .EQ.  IINGRZ)  THEN 

CALL  QIBCOE (UPPER, X, Y, RIBZGR, BVALUE) 

CU  -  BVALUE (BCOEUU) 

CUZ  -  BVALUE (BCOEUZ) 

CO (NEQN, CENTER)  -  CO (NEQN, CENTER) 

A  -  2. DO^CIU^CO (NEQN, UPPER)  *DZ/CUZ 

CO  (NEQN,  LONER)  -  CO  (NEQN,  LONER)  •¥  CO  (NEQN,  UPPER) 

CO(NEQN,RHS)  -  CO(NEQN,RHS) 

A  -  2.DO*CO(NEQN,UPPER)*DZ*BNDRHS/CUZ 

L3BNDY (NEQN, UPPER)  «  .TRUE. 

ENDIF 

IF  THE  CONVECTIVE  SUBROUTINE  SETS  THE  UPPER  COEFFICIENT  EQUAL  TO 
ZERO,  THEM  UNDO  ON  PREVIOUS  BOUNDARY  MODIFICATIONS  THAT  MAY  HAVE 
BEEN  MADE  FOR  AN  UPPER  DIRICHLET  BOUNDARY. 

58  IF  (CO (NEQN, UPPER)  .EQ.  O.DO  .AND.  IIBCTY (UPPER)  .EQ.  ISDIRC 
A  .AND.  OLDCO(NE(^, UPPER)  .NE.  O.DO  .AND.  K.EQ. (IlNGRZ-1) ) THEN 
CO(NE0N,RHS)  -  CO(NE{^,RHS)  +  OLDCO (NEQN, UPPER) *BNDRHS 
IF  (IlLEVL  .GT.  1) 

A  CALL  Q8BRST  (OLDCO (NE(^, UPPER) , BNDRHS, IIBCTY (UPPER) , 'UPPER' ) 

ENDIF 


k 
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Q  ***********************  WESTERN  BOUNDARY  *************************** 
C  IF  BOUNDARY  MODIFICATIONS  HAVE  BEEN  MADE  BY  A  PREVIOUS  CALL  OF  A  CON- 
C  VECTIVE  SUBROUTINE  MAKE  NO  FURTHER  MODIFICATIONS  ON  WESTERN  BOUNDARY. 

C 

60  IF  (L3BNDY(NEQN,WEST) )  GOTO  63 

SET  WEST  COEFFICIENT.  MAKE  MODIFICATIONS  IF  (X,Y,Z)  IS 
ADJACENT  TO  THE  WESTERN  BOUNDARY. 

IF  (I  .LE.  2)  BNDRHS  -  RIBRHS (WEST, R1AX6R, Y, Z) 

IF  (IlLEVL  .GT.  1)  THEN 

IF ((I  .EQ.  1)  .OR.  (I.  EQ.  2  .AND.  IIBCTY(NEST)  .EQ.  ISDIRC) ) 

A  CALL  Q8BDAT (CO (NEQN, WEST) ,  BNDRHS,  IIBCTY (WEST) , '  WEST') 

ENDIF 

MODIFY  RIGHT  HAND  SIDE  OF  EQUATION  IF  ADJACENT  TO  DIRICHLET  BOUNDARY. 

IF  (I  .EQ.  2  .AND.  IIBCTY (WEST)  .EQ.  ISDIRC)  THEN 

CO(NEQN,RHS)  -  CO(NEQN,RHS)  -  CO (NEQN,NEST) *BNDRHS 
L3BNDY(NEQN,NEST)  -  .TRUE. 

GOTO  65 

ENDIF 

MODIFY  CENTER  COEFFICIENT,  EAST  COEFFICIENT,  AND  RIGHT  HAND  SIDE 
OF  EQUATION  IF  ADJACENT  TO  A  MIXED  BOUNDARY. 

IF  (I  .EQ.  1)  THEN 

CALL  QIBCOE (NEST, R1AX6R, Y, Z, BVALUE) 

CU  -  BVALUE (BCOEUU) 

CUX  -  BVALUE (BCOEUX) 

CO (NEQN, CENTER)  -  CO (NEQN, CENTER) 

A  -  2 . DO*CU*CO (NEQN, WEST) *DX/CUX 

CO  (NEQN,  EAST)  ••  CO  (NEQN,  EAST)  •¥  CO  (NEQN,  WEST) 

CO (NEQN, RHS)  •  CO (NEQN, RHS) 

A  -  2.DO*CO(NEQN,WEST)*DX*BNDRHS/CUX 

L3BNDY (NEQN, NEST)  -  .TRUE. 

ENDIF 

IF  THE  CONVECnriVE  SUBROUTINE  SETS  THE  WESTERN  COEFFICIENT  EQUAL  TO 
ZERO,  THEN  UNDO  ON  PREVIOUS  BOUNDARY  MODIFICATIONS  THAT  MAY  HAVE 
BEEN  MADE  FOR  A  WESTERN  DIRICHLET  BOUNDARY. 

63  IF  (CO (NEQN, WEST)  .EQ.  O.DO  .AND.  IIBCTY(WEST)  .EQ.  ISDIRC 
A  .AND.  OLDCO (NEQN, WEST)  .NE.  O.DO  .AND.  I  .EQ.  2) THEN 

CO  (NEQN,  RHS)  -  CO  (NEQN,  RHS)  OLDCO  (NEQN,  WEST)  *BNDRHS 
IF  (IlLEVL  .GT.  1) 

A  CALL  Q8BRST  (OLDCO (NEQN, WEST) , BNDRHS, IIBCTY (WEST) , '  WEST') 

ENDIF 
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C  <k**********************  SOUTHERN  BOUNDARY  *************************** 
C  IF  BOUNDARY  MODIFICATIONS  HAVE  BEEN  MADE  BY  A  PREVIOUS  CALL  OF  A  CON- 
C  VECTIVE  SUBROUTINE  MAKE  NO  FURTHER  MODIFICATIONS  ON  SOUTHERN  BOUNDARY. 
C 

65  IF  (L3BNDY (NEQN, SOUTH) )  GOTO  68 

SET  SOUTH  COEFFICIENT.  MAKE  MODIFICATIONS  IF  (X,Y, Z)  IS 
ADJACENT  TO  THE  SOUTHERN  BOUNDARY. 

IF  (J  .LE.  2)  BNDRHS  -  RIBRHS (SOUTH, X,R1AYGR,  Z) 

IF  (IlLEVL  .GT.  1)  THEN 

IF((J  .EQ.  1)  .OR.  (J  .EQ.  2  .AND.  IIBCTY (SOUTH)  .EQ.  ISDIRC) ) 

A  CALL  Q8BDAT (CO (NEQN, SOUTH) ,  BNDRHS,  IIBCTY (SOUTH) ,' SOUTH' ) 

ENDIF 

MODIFY  RIGHT  HAND  SIDE  OF  EQUATION  IF  ADJACENT  TO  DIRICHLET  BOUNDARY. 

IF  (J  .EQ.  2  .AND.  IIBCTY (SOUTH)  .EQ.  ISDIRC)  THEN 

CO(NEQN,RHS)  -  CO(NEQH,RHS)  -  CO (NEQN, SOUTH) *BNDRHS 
L3BNDY (NEQN, SOUTH)  -  .TRUE. 

GOTO  70 

ENDIF 

MODIFY  CENTER  COEFFICIENT,  NORTH  COEFFICIENT,  AND  RIGHT  HAND  SIDE 
OF  EQUATION  IF  ADJACENT  TO  A  MIXED  BOUNDARY. 

IF  (J  .EQ.  1)  THEN 

CALL  QIBCOE (SOUTH, X, RIAYGR, Z, BVALUE) 

CU  -  BVALUE (BCOEUU) 

CUY  -  BVALUE (BCOEUY) 

CO  (NEQN,  CENTER)  «•  CO  (NEQN,  CENTER) 

A  -  2. DO*CU*CO (NEQN, SOUTH) *DY/CUY 

CO (NEQN, NORTH)  -  CO (NEQN, NORTH)  +  CO (NEQN, SOUTH) 

CO(HE(»l,RHS)  -  CO(NEQN,RHS) 

A  -  2. DO^CO (NEQN, SOUTH) *DY*BHDRHS/CUY 

L3BNDY (NEQN, SOUTH)  -  .TRUE. 

ENDIF 

IF  THE  CONVECTIVE  SUBROUTINE  SETS  THE  SOUTHERN  COEFFICIENT  EQUAL  TO 
ZERO,  THEN  UNDO  ON  PREVIOUS  BOUNDARY  MODIFICATIONS  THAT  MAY  HAVE 
BEEN  MADE  FOR  A  SOUTHERN  DIRICHLET  BOUNDARY. 

68  IF  (CO (NEQN, SOUTH)  .EQ.  O.DO  .AND.  IIBCTY (SOUTH)  .EQ.  ISDIRC 
A  .AND.  OLDCO (NEQN, SOUTH)  .HE.  O.DO  .AND.  J  .EQ.  2)  THEN 
CO(NEQN,RHS)  -  CO(NEQN,RHS;  +  OLDCO  (NEQN,  SOUTH)  *BNt  TJiS 
IF  (IlLEVL  .GT.  1) 

A  CALL  Q8BRST  (OLDCO (NE(H<f SOUTH) , BNDRHS, IIBCTY (SOUTH) , 'SOUTH' ) 

ENDIF 

C 
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C  ***********************  LOWER  BOONDARY  *************************** 
C  ir  BOONDARY  MODiriCATlONS  HAVE  BEEN  MADE  BY  A  PREVIOUS  CALL  OF  A 
C  CONVECTIVE  SUBROUTINE  MAKE  NO  FURTHER  MODIFICATIONS  ON  LOWER  BOUNDARY. 
C 

70  IF  (L3BNDY (NBQN, LOWER) )  GOTO  73 

SET  LOWER  COEFFICIENT.  MAKE  MODIFICATIONS  IF  (X,Y,Z)  IS 
ADJACENT  TO  THE  LONER  BOUNDARY. 

IF  (K  .LE.  2)  BNDRHS  -  RIBRHS (LONER, X,Y,R1AZGR) 

IF  (IlLEVL  .GT.  1)  THEN 

IF((K  .EQ.  1)  -OR.  (K  .EQ.  2  .AND.  IIBCTY (LOWER)  .EQ.  ISDIRC) ) 

A  CALL  Q8BDAT (CO (NEQN, LOWER)  ,  BNDRHS,  IIBCTY (LOWER) LOWER' ) 

ENDIF 

MODIFY  RIGHT  HAND  SIDE  OF  EQUATION  IF  ADJACENT  TO  DIRICHLET  BOUNDARY. 

IF  (K  .EQ.  2  .AND.  IIBCTY (LOWER)  .EQ.  ISDIRC)  THEN 

CO(NEQN,RHS)  -  CO(NEQN,RHS)  -  CO (NEQN, LOWER) * BNDRHS 
L3BNDY (NEQN, LOWER)  -  .TRUE. 

GOTO  75 

ENDIF 

MODIFY  CENTER  COEFFICIENT,  UPPER  COEFFICIENT,  AND  RIGHT  HAND  SIDE 
OF  EQUATION  IF  ADJACENT  TO  A  MIXED  BOUNDARY. 

IF  (K  .EQ.  1)  THEN 

CALL  QIBCOE (LONER, X, Y, RIAZGR, BVALUE) 

CU  -  BVALUE (BCOEUU) 

CUZ  ->  BVALUE  (BCOEUZ) 

CO (NEQN, CENTER)  -  CO (NEQN, CENTER) 

A  -  2.DO*CU*CO(NE(»I,LOWER)*DZ/CUZ 

CO  (NEW,  UPPER)  -  CO  (NEQN,  UPPER)  +  CO  (NEQN,  LOWER) 

CO(NEQN,RHS)  •  CO(NEQN,RHS) 

A  -  2. DO*CO (NEQN, LOWER) *DZ*BNDRHS/CUZ 

L3BNDY (NEQN, LOWER)  ■>  .TRUE. 

ENDIF 

IF  THE  CONVECTIVE  SUBROUTINE  SETS  THE  LOWER  COEFFICIENT  EQUAL  TO 
ZERO,  THEN  UNDO  ON  PREVIOUS  BOUNDARY  MODIFICATIONS  THAT  MAY  HAVE 
BEEN  MADE  FOR  A  LONER  DIRICHLET  BOUNDARY. 

73  IF  (CO (NEQN, LOWER)  .EQ.  O.DO  .AND.  IIBCTY (LOWER)  .EQ.  ISDIRC 
A  .AND.  OLDCO (NEQN, LOWER)  .NE.  O.DO  .AND.  K  .EQ.  2)  THEN 
CO(NEQN,RHS)  -  CO(NEQN,RHS)  +  OLDCO (NEQN, LOWER) *BNDRHS 
IF  (IlLEVL  .GT.  1) 

A  CALL  Q8BRST  (OLDCO (NEQN, LOWER) , BNDRHS, IIBCTY (LOWER) , ' LONER' ) 

ENDIF 

75  CONTINUE 
RETURN 
END 
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SUBROUTINE  QSSTCF (COBF, BBBB, IDCO,NEQN, L3CVCT, I,3BNDY,MNEQ,MHCO, 
A  CO) 

IMPLICIT  DOUBLE  PRECISION  {A-H,0-Z) 


E  L  L  P  A  C  K  DISCRETIZATION  MODULE  PHASE  3D 


PURPOSE 

Q3STCF  MODIFIES  THE  E  L  L  P  A  C  K  VARIABLES  THAT  DESCRIBE  THE 
EQUATION  ALONG  THE  INTERFACE  OF  THE  THREE  DIMENSIONAL  REGIME. 
INPUTS  FOR  Q3STCF  INCLUDE: 

CO  —  TEMP.  ARRAY  CONTAINING  EQUATION  COEFFICIENT  VALUES. 
NEQN  —  INDEX  OF  EQUATION  CURRENTLY  BEING  MODIFIED. 

L3CVCT —  ARRAY  OF  LOGICAL  ELEMENTS  SPECIFYING  IF  A  POINT  LIES 
ON  ONE  OR  MORE  CONVECTIVE  INTERFACES. 

MNEQ  —  NUMBER  OF  EQUATIONS  IN  THE  SYSTEM. 

MNCO  —  NUMBER  OF  COEFFICIENTS  PER  EQUATION. 

COEF  —  COEFFICIENT  FOR  EACH  VARIABLE  OF  EACH  EQUATION. 

BBBB  —  RIGHT  HAND  SIDE  VALUE  OF  EACH  EQUATION. 

IDCO  —  INTEGER  SUBSCRIPT  THAT  IDENTIFIES  POSITION  OF  THE 
VARIABLE  WITHIN  THE  GRID. 

AUTHOR 

VINCENT  J.  VAN  JOOLEN 

VERSION 

FEBRUARY  1991 

NOTE 

USES  JUNE  197 8 /SEPTEMBER  1982  VERSION  OF  7  POINT  3D  M  O  D  U  L  E 
written  by  ROGER  GRIMES. 


INTEGER  IDCO (MNEQ,  MNCO) 

DOUBLE  PRECISION  COEF (MNEQ,  MNCO) 

DOUBLE  PRECISION  BBBB (MNEQ) 

DOUBLE  PRECISION  00(1:10000,8) 

LOGICAL  L3CVCT (1:10000, 6) ,  L3BNDY (1 : 10000, 6) 

INTEGER  EAST, SOUTH, WEST, NORTH, UPPER, LOWER, CENTER, RHS 
DATA  EAST, SOUTH, WEST, NORTH, UPPER, LOWER, CENTER, RHS , ISDIRC 

A  /  1,  2,  3,  4,  5,  6,  7,  8,  1  / 

SET  CENTER  COEFFICIENT.  ALL  OTHER  COEFFICIENTS  WILL  BE  NORMALIZED 
WITH  respect  to  THE  CENTER  COEFFICIENT. 

ICOL  -  1 

COEF (NE;^, ICOL)  -  CO (NEQN, CENTER) 

SET  EAST  COEFFICIENT  IF  (X,Y,Z)  IS  AN  INTERIOR  POINT. 

IF  (L3CVCT (NEQN,  EAST)  .OR.  L3BNDY (ME(}N, EAST) )  GOTO  5 
ICOL  -  ICOL  +  1 

COEF (NE(^, ICOL)  -  CO (NEQN, BAST) 
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SET  NORTH  COEmciENT  IF  (X,Y,Z)  IS  AH  INTERIOR  POINT. 

5  IF  -OR.  I<3BNPY  (NEQN, NORTH) )  GOTO  10 

COEF (NEON, ICOL)  -  CO (NEQN, NORTH) 

SET  UPPER  COEFFICIENT  IF  (X,Y,Z)  IS  AH  INTERIOR  POINT. 

10  IF  1«3BNDY  (NEQN,  UPPER) )  GOTO  15 

COEF (NEON, ICOL)  •  CO (NEON, UPPER) 

SET  WEST  COEFFICIENT  IF  (X,Y,Z)  IS  AN  INTERIOR  POINT. 

15  IF  (L3CVCT(NEON,  NEST)  .OR.  L3 BNP Y (NEON, NEST) )  GOTO  20 
ICOL  -  ICOL  +  1 

COEF (NE(^, ICOL)  -  CO (NEON, NEST) 

SET  SOUTH  COEFFICIENT  IF  (X,Y,Z)  IS  AN  INTERIOR  POINT. 

20  IF  (L3CVCT (NEON, SOUTH)  .OR.  L3BNDY (NEON, SOUTH) )  GOTO  25 
ICOL  -  ICOL  +  1  »  // 

COEF (NEON, ICOL)  -  CO (NEON, SOUTH) 

SET  LONER  COEFFICIENT  IF  (X,Y,Z)  IS  AN  INTERIOR  POINT. 

25  IF  (L3^CT  (NEON, LONER)  .OR.  L3BNDY  (NEON, LONER)  )  GOTO  30 
ICOL  ICOL  +  1 

COEF  (NE(HI,  ICOL)  -  CO  (NE^,  LONER) 

SET  VALUE  FOR  RIGHT  SIDE  EOUATION  AT  (X,Y,2) . 

30  BBBB (NEON)  ■  CO(NE0N,RHS) 

RETURN 

END 
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SUBROUTINE  Q4XRNG (X, yi,y2, Zl, Z2, IX, JYl, JY2, KZl, KZ2) 
IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 


E  L  L  P  A  C  K  DISCRETIZATION  MODULE  PHASE  3D 


PURPOSE 

Q4XRNG  DETERMINES  THE  RANGE  OF  THE  UNKNONN  GRID  POINTS  ALONG  AN 
X  INTERFACE.  IT  ENSURES  THAT  THE  BOUNDS  SPECIFIED  FOR  THE  X 
INTERFACE  HAVE  ALSO  BEEN  SPECIFIED  ON  THE  GRID.  IF  THEY  HAVE  NOT 
THEN  THE  RUN  IS  TERMINATED.  INPUTS  ARE: 

X  ~  LOCATION  OF  THE  X  INTERFACE. 

Yl,  Y2  —  Y  BOUNDS  OF  THE  X  INTERFACE. 

Zl,  Z1  —  Z  BOUNDS  OF  THE  X  INTERFACE. 

VALUES  RETURNED  ARE: 

IX  —  X  GRID  POSITION  OF  THE  X  INTERFACE. 

JYl,  JY2  —  Y  GRID  POSITIONS  OF  THE  Y  BOUNDS. 

KZl,  KZ2  —  Z  GRID  POSITIONS  OF  THE  Z  BOUNDS. 

AUTHOR 

VINCENT  J.  VAN  JOOLEN 

VERSION 

FEBRUARY  1991 


COPMOH  /  CIBCTY  /  IIBCTY (1) 

COM40N  /  CirVGR  /  IINGRX,  IINGRY,  IINGRZ,  IINBPT,  IIMBPT,  IIPACK 
C0M40N  /  CIGRDX  /  RlGRDX(l) 

C0M40N  /  CIGRDY  /  RlGRDY(l) 

COtHOVt  /  CIGRDZ  /  RlGRDZ(l) 

INTEGER  EAST, SOUTH, NEST, NORTH, UPPER, LONER 
DATA  EAST, SOUTH, NEST, NORTH, UPPER, LONER, ISDIRC 

A  /  1,  2,  3,  4,  5,  6,  1  / 

ENSURE  THAT  INTERFACE  PARAMETERS  HAVE  BEEN  SPECIFIED  ON  THE  GRID. 

IX  -  0 

DO  10  I  -  1,  IINGRX 

IF  (DABS(RIGRDX(I)-X)  .LE.  lE-6)  IX  -  I 
10  CONTINUE 

TERMINATE  PROGRAM  IF  INTERFACE  NAS  NOT  PROPERLY  SPECIFIED. 

IF  (IX  .EQ.  0)  THEN 

CALL  Q1ERRH(17HSUBR0UTINE  Q4XRNG,17) 

NRITE  (6,15) 

15  FORMAT (/'X  INTERFACE  POSITION  MUST  BE  SPECIFIED  ON  GRID'/) 

CALL  QIERRT 
RETURN 

BNDIF 

IF  (IX  .BQ.  1  .OR.  IX  .EQ.  IINGRX)  THEN 

CALL  Q1ERRB(17HSUBR0UTINE  Q4XRMG,17) 
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25 


WRITE  (6,25) 

FORMAT (/'X  INTERFACE  CAN  NOT  EXIST  ON  SPECIFIED  BOUNDARY'/) 
CALL  QIERRT 
RETURN 

ENDIF 

TERMINATE  PROGRAM  IF  Y  BOUNDS  OF  INTERFACE  ARE  NOT  SPECIFIED  ON  GRID. 

JYl  -  0 
JY2  -  0 

DO  30  J  -  1,  IINGRY 

IF  (DABS(RIGRDY(J)-Yl)  .LE.  lE-6)  JYl  -  J 

IF  (DABS(R1GRDY(J)-Y2)  .LE.  lE-6)  JY2  -  J 

30  CONTINUE 

IF  (JYl  .EQ.  0  .OR.  JY2  .EQ.  0)  THEN 

CALL  QlERRH(17HSUBROUTINE  Q4XRNG,17) 

WRITE  (6,35) 

35  FORMAT (/'X  INTERFACE  Y  BOUNDS  MUST  BE  SPECIFIED  ON  GRID'/) 

CALL  QIERRT 
RETURN 

ENDIF 

MODIFY  JYl  AND  JY2  IF  Y1  AMD  Y2  ARE  ON  DIRICHLET  BOUNDARIES. 

IF  (JYl  .EQ.  1  .AND.  IIBCTY (SOUTH)  .EQ.  ISDIRC)  JYl  -  2 

IF  (JY2  .EQ.  IINGRY  .AMD.  IIBCTY (NORTH)  .EQ.  ISDIRC)  JY2  -  JY2-1 

TERMINATE  PROGRAM  IF  Z  BOUNDS  OF  INTERFACE  ARE  NOT  SPECIFIED  ON  GRID. 

KZl  -  0 
KZ2  -  0 

DO  40  K  «  1,  IlMGRZ 

IF  (DABS  (RIGRDZ  (K) -Zl)  .LE.  lE-6)  ICZl  -  K 

IF  (DABS(R1GRDZ(K)-Z2)  .LE.  1E~6)  KZ2  •  K 

40  CONTINUE 

IF  (RZl  .EQ.  0  .OR.  KZ2  .EQ.  0)  THEN 

CALL  QlERRH(17HSUBROUTIME  Q4XRM6,17) 

WRITE  (6,45) 

45  FORMAT (/'X  INTERFACE  Z  BOUNDS  MUST  BE  SPECIFIED  ON  GRID'/) 

CALL  QIERRT 
RETURN 

ENDIF 

HODirX  KZl  AND  KZ2  IF  Z1  AND  Z2  ARE  ON  DIRICHLET  BOUNDARIES. 

IF  (KZl  .EQ.  1  .AND.  IIBCTY (LONER)  .EQ.  ISDIRC)  KZl  -  2 

IF  (KZ2  .EQ.  IINGRZ  .AND.  IIBCTY (UPPER)  .EQ.  ISDIRC)  KZ2  -  KZ2-1 

RETURN 
END 
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SUBROUTINE  Q4YRNG  (Y,  XI,  X2,  Zl,  Z2,  JY,  IXl,  1X2,  KZl,  KZ2) 
IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 


E  L  L  P  A  C  K  DISCRETIZATION  MODULE  PHASE  3D 


PURPOSE 

Q4YRNG  DETERMINES  THE  RANGE  OF  THE  UNKNOWN  GRID  POINTS  ALONG  AN 
Y  INTERFACE.  IT  ENSURES  THAT  THE  BOUNDS  SPECIFIED  FOR  THE  Y 
INTERFACE  HAVE  ALSO  BEEN  SPECIFIED  ON  THE  GRID.  IF  THEY  HAVE  NOT 
THEN  THE  RUN  IS  TERMINATED.  INPUTS  ARE: 


XI, 

X2 

—  X  BOUNDS 

OF 

THE 

Y 

INTERFACE 

Y 

—  LOCATION 

OF 

THE 

Y 

INTERFACE 

Zl, 

Zl 

—  Z  BOUNDS 

OF 

THE 

Y 

INTERFACE 

VALUES  RETURNED  ARE: 


1X1, 

1X2  —  X 

GRID 

POSITIONS 

OF 

THE 

X 

BOUNDS. 

JY 

—  Y 

GRID 

POSITION 

OF 

THE 

Y 

INTERFACE 

KZl, 

KZ2  —  Z 

GRID 

POSITIONS 

OF 

THE 

Z 

BOUNDS . 

AUTHOR 
VINCENT  J.  VAN  JOOLEN 
VERSION 
MARCH  1991 


COMMON  /  CIBCTY  /  llBCTY(l) 

COI«ON  /  CllVGR  /  IINGRX,  IINGRY,  IINGRZ,  llNBPT,  IlMBPT,  IIPACK 
COMMON  /  C16RDX  /  R16RDX(1) 

C0M40N  /  CIGRDY  /  RlGRDY(l) 

COtMON  /  CIGRDZ  /  R16RDZ(1) 

INTEGER  EAST, SOUTH, WEST, NORTH, UPPER, LOWER 
DATA  EAST, SOUTH, WEST, NORTH, UPPER, LOWER, XSDIRC 

A  /  1,  2,  3,  4,  5,  6,  1  / 

ENSURE  THAT  INTERFACE  PARAMETERS  HAVE  BEEN  SPECIFIED  ON  THE  GRID 

JY  •  0 

DO  10  J  -  1,  IINGRY 

IF  (OABS(RIGROY(J)-Y)  .LE.  lB-6)  JY  -  J 
10  CONTINUE 

TERMINATE  PROGRAM  IF  INTERFACE  NAS  NOT  PROPERLY  SPECIFIED. 

IF  (JY  .BQ.  0)  THEN 

CALL  Q1ERRH(17HSUBR0UTINE  Q4YRNG, 17) 

WRITE  (6,15) 

15  FORMAT(/'y  INTERFACE  POSITION  MUST  BE  SPECIFIED  ON  GRID'/) 

CALL  QIERRT 
RETURN 

ENDIF 

IF  (JY  .BQ.  1  .OR.  JY  .EQ.  IINGRY)  THEN 
CALL  QlERRH(17HSUBROUTINE  Q4YRN6,17) 
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25 


WRITE  (6,25) 

FORMAT (/'Y  INTERFACE  CAN  NOT  EXIST  ON  A  SPECIFIED  BOUNDARY'/) 
CALL  QIERRT 
RETURN 

ENDIF 

TERMINATE  PROGRAM  IF  X  BOUNDS  OF  INTERFACE  ARE  NOT  SPECIFIED  ON  GRID. 

IXl  -  0 
1X2  -  0 

DO  30  I  -  1,  IINGRX 

IF  (DABS(RIGRDX(I)-Xl)  .LE.  lE-6)  1X1  -  I 

IF  (DABS(R1GRDX(I)-X2)  .LE.  lE-6)  1X2  -  I 

30  CONTINUE 

IF  (1X1  .EQ.  0  .OR.  1X2  .EQ.  0)  THEN 

CALL  Q1ERRH(17HSUBR0UTINE  Q4YRNG,17) 

WRITE  (6,35) 

35  FORMAT (/'Y  INTERFACE  X  BOUNDS  MUST  BE  SPECIFIED  ON  GRID'/) 

CALL  QIERRT 
RETURN 

ENDIF 

MODIFY  1X1  AMD  1X2  IF  XI  AMD  X2  ARE  ON  DIRICHLET  BOUNDARIES. 

IF  (1X1  .EQ.  1  .AND.  IIBCTY(WEST)  .EQ.  ISDIRC)  1X1  -  2 

IF  (1X2  .EQ.  IINGRX  .AND.  I1BCTY(EA5T)  .EQ.  ISDIRC)  1X2  -  1X2-1 

TERMINATE  PROGRAM  IF  Z  BOUNDS  OF  INTERFACE  ARE  MOT  SPECIFIED  ON  GRID. 

K21  -  0 
KZ2  -  0 

DO  40  K  -  1,  IINGRZ 

IF  (DABS(RIGRDZ(K)-ZI)  .LE.  lE-6>  KZl  »  K 
IF  (DABS  (RIGRDZ  (K) -Z2)  .LE.  lE-6)  KZ2  -  K 
40  CONTINUE 

IF  (KZl  .EQ.  0  .OR.  KZ2  .EQ.  0)  THEN 

CALL  QlERRH(17HSUBROUTIKE  Q4YRNG,17) 

WRITE  (6,45) 

45  FORMAT (/'Y  INTERFACE  Z  BOUNDS  MUST  BE  SPECIFIED  ON  GRID'/) 

CALL  QIERRT 
RETURN 

ENDIF 

MODIFY  KZl  AND  KZ2  IF  Z1  AMD  Z2  ARE  ON  DIRICHLET  BOUNDARIES. 

IF  (KZl  .EQ.  1  .AND.  IIBCTY (LOWER)  .EQ.  ISDIRC)  KZl  -  2 

IF  (KZ2  .EQ.  IINGRZ  .AND.  IIBCTY (UPPER)  .EQ.  ISDIRC)  KZ2  -  KZ2-1 
RETURN 
END 
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SUBROUTINE  Q4  ZRNG ( Z , Xl , X2 , Y1 , y2 , KZ , IXl , 1X2 , JYl , JY2 ) 
IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 


E  L  L  P  A  C  K  DISCRETIZATION  MODULE  PHASE  3D 


PURPOSE 

Q4ZRN6  DETERMINES  THE  RANGE  OF  THE  UNKNONN  GRID  POINTS  ALONG  AN 
Z  INTERFACE.  IT  ENSURES  THAT  THE  BOUNDS  SPECIFIED  FOR  THE  Z 
INTERFACE  HAVE  ALSO  BEEN  SPECIFIED  ON  THE  GRID.  IF  THEY  HAVE  NOT 
THEN  THE  RUN  IS  TERMINATED.  INPUTS  ARE: 

XI,  X2  —  X  BOUNDS  OF  THE  Z  INTERFACE. 

Yl,  Y2  —  Y  BOUNDS  OF  THE  Z  INTERFACE. 

Z  —  LOCATION  OF  THE  Z  INTERFACE. 

VALUES  RETURNED  ARE: 


1X1, 

1X2 

—  X 

GRID 

POSITIONS 

OF 

THE 

X 

BOUNDS. 

JYl, 

JY2 

—  Y 

GRID 

POSITION 

OF 

THE 

Y 

BOUNDS. 

KZ 

—  Z 

GRID 

POSITION 

OF 

THE 

Z 

INTERFACE 

AUTHOR 
VINCENT  J.  VAN  JOOLEN 
VERSION 
MARCH  1991 


CO»*WN  /  CIBCTY  /  IlBCTY(l) 

COMMON  /  CIIVGR  /  ZINGRX,  IINGRY,  Z1N6RZ,  XINBPT,  IlMBPT,  IIPACR 

COMMON  /  C16RDX  /  R16RDX(1) 

COMMON  /  CIGRDY  /  RlGRDY(l) 

C0I44ON  /  C16RDZ  /  RlGRDZ(l) 

INTEGER  EAST, SOUTH, NEST, NORTH, UPPER, LONER 
DATA  EAST, SOUTH, NEST, NORTH, UPPER, LONER, ISDIRC 
A  /  1,  2,  3,  4,  5,  6,  1  / 

ENSURE  THAT  INTERFACE  PARAMETERS  HAVE  BEEN  SPECIFIED  ON  THE  GRID. 

KZ  -  0 

DO  10  K  -  1,  IINGRZ 

IF  (DABS (RIGRDZ (K) -Z)  .LE.  1E>6)  KZ  -  K 
10  CONTINOT 

TERMINATE  PROGRAM  IF  INTERFACE  NAS  NOT  PROPERLY  SPECIFIED. 

IF  (KZ  .EQ.  0)  THEN 

CALL  Q1ERRH(17HSUBR0UTINE  Q4ZRNG,17) 

NRITE  (6,15) 

15  FORMAT (/'Z  INTERFACE  POSITION  MUST  BE  SPECIFIED  ON  GRID'/) 

CALL  QIERRT 
RETURN 

ENDIF 

IF  (KZ  .EQ.  1  .OR.  KZ  .EQ.  IINGRZ)  THEN 
CALL  Q1ERRH(17HSUBR0UTINE  Q4ZRNG, 17) 
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25 


WRITE  (6,25) 

FORMAT (/'Z  XHTERFACE  CAN  NOT  EXIST  ON  A  SPECIFIED  BOUNDARY'/) 
CALL  QIERRT 
RETURN 

ENDIF 

TERMINATE  PROGRAM  IF  X  BOUNDS  OF  INTERFACE  ARE  NOT  SPECIFIED  ON  GRID. 

IXl  -  0 
1X2  -  0 

DO  30  I  -  1,  IINGRX 

IF  (DABS(RIGRDX(I)-Xl)  .LE.  lE-6)  1X1  -  I 

IF  (DABS(R1GRDX(I)-X2)  .LE.  lE-6)  1X2  -  I 

30  CONTINUE 

IF  (1X1  .EQ.  0  .OR.  1X2  .EQ.  0)  THEN 

CALL  Q1ERRH(17HSUBR0UTINE  Q4ZRNG,17) 

WRITE  (6,35) 

35  FORMAT (/'Z  INTERFACE  X  BOUNDS  MUST  BE  SPECIFIED  ON  GRID'/) 

CALL  QIERRT 
RETURN 

ENDIF 

MODIFY  XXI  AND  1X2  IF  XI  AND  X2  ARE  ON  DXRICHLET  BOUNDARIES. 

IF  (1X1  .EQ.  1  .AND.  IIBCTY(WEST)  .EQ.  ISDIRC)  1X1  -  2 

IF  (1X2  .EQ.  IINGRX  .AND.  IlBCTy(EAST)  .EQ.  ISDIRC)  1X2  »  1X2-1 

TERMINATE  PROGRAM  IF  Y  BOUNDS  OF  INTERFACE  ARE  NOT  SPECIFIED  ON  GRID. 

JYl  -  0 
JY2  -  0 

DO  40  J  -  1,  IINGRY 

IF  (DABS(RIGRDY(J)-Yl)  .LE.  lE-6)  OYl  -  J 

IF  (DABS(R1GRDY(J)-Y2)  .LF.,  lE-6)  JY2  -  J 

40  CONTINUE 

IF  (JYl  .EQ.  0  .OR.  JY2  .EQ.  0)  THEN 

CALL  QlERRH(17HSUBROUTINE  Q4ZRNG,17) 

WRITE  (6,45) 

45  FORMAT (/'Z  INTERFACE  Y  BOUNDS  MUST  BE  SPECIFIED  ON  GRID'/) 

CALL  QIERRT 
RETURN 

ENDIF 

MODIFY  JYl  AND  JY2  IF  Y1  AND  Y2  ARE  ON  DIRICHLET  BOUNDARIES. 

IF  (JYl  .EQ.  1  .AND.  IIBCTY (SOUTH)  .EQ.  ISDIRC)  JYl  -  2 

IF  (JY2  .EQ.  IINGRY  .AND.  IIBCTY (NORTH)  .EQ.  ISDIRC)  JY2  -  JY2-1 

RETURN 
END 
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SUBROUTINE  Q5S0RM (BBBB, COEF, IDCO,  CSffiGA, ZETA,  ITMAX, UNKN,MNEQ,MNCO) 
IMPLICIT  DOUBLE  PRECISION  (A-H,0-P) 


E  L  L  P  A  C  K  SOLUTION  MODULE  SOR 


PURPOSE 

Q5SORM  SOLVES  THE  SYSTEM  OF  EQUATIONS  GENERATED  BY  THE  DISCRETIZATION 
ROUTINES  USING  STANDARD  OVER-RELAXATION  ITERATIVE  METHOD.  INPUTS  FOR 
Q5SORM  INCLUDE : 

OMEGA  —  RELAXATION  FACTOR. 

ZETA  —  CONVERGENCE  TOLERANCE  SETTING. 

ITMAX  —  MAXIMUM  ITERATIONS  PERFORMED  BEFORE  ROUTINE  TERMINATES. 

ON  ONE  OR  MORE  CONVECTIVE  INTERFACES. 

MNEQ  —  NUMBER  OF  EQUATIONS  IN  THE  SYSTEM. 

MNCO  —  NUMBER  OF  COEFFICIENTS  PER  EQUATION. 

COEF  —  COEFFICIENT  FOR  EACH  VARIABLE  OF  EACH  EQUATION. 

BBBB  —  RIGHT  HAND  SIDE  VALUE  OF  EACH  EQUATION. 

IDCO  —  INTEGER  SUBSCRIPT  THAT  IDENTIFIES  POSITION  OF  THE 
VARIABLE  WITHIN  THE  GRID. 

UNKN  —  VECTOR  TO  CONTAIN  VALUES  OF  UNKNOWN  VARIABLES. 

AUTHOR 
VINCENT  J.  VAN  JOOLEN 
VERSION 
MAY  1991 


COMMON  /  CllVCN  /  LEVEL,  IllNPT,  llOUTP,  IlSCRA,  IIKWRK,  IIKORD 
DOUBLE  PRECISION  COEF (MNEQ, MNCO) ,  BBBB (MNEQ),  UNKN (1 : lOOOO) 
INTEGER  IDCO (MNEQ, MNCO) ,  N(9),  NEQN(9) 

PRINT  SOR  HEADER  OF  LEVEL  >  0. 

IF  (LEVEL  .GT.  0)  THEN 

WRITE (6, 5)  OMEGA,  ZETA,  ITMAX 

5  FORMAT  (//2(/70('*'))/'**',66X,'**V'**',24X, 'START  SOR', 

A  '  ROUTINE:',24X, '**'/'**', 66X,'**', 2 (/70 ('*'))// 

B  5X, ' RELAXATION  FACTOR  -  ' ,F5. 2/ 5X, 'CONVERGENCE  CRITERIA  -  ', 

C  E10.2/5X, 'MAXIMUM  ITERATIONS  -  ',15) 

END  IF 

INITIALIZE  VALUES  FOR  UNKN. 

DO  10  I  -  1,MNEQ 
UNKN(Z)  «  O.DO 
10  CONTINUE 

PERFORM  UP  TO  ITMAX  SOR  ITERATIONS  ON  SYSTEM. 

DO  40  ITER  «  1, ITMAX 
RESMAX  -  O.DO 
DO  30  I  -  1,MNEQ 
A  -  BBBB (I) 
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DO  20  J  -  1,MNC0 

A  -  A  -  COBF  (I,  J)*UNKN(1DC0(I,  J)  ) 

20  COHTZMUE 

RESID  -  (OME6A/COEF(I,l))*A 
IF  (RESID  .GT.  RESMAX)  RESMAX  -  RESID 
IF  (-RESID  .GT.  RESMAX)  RESMAX  -  -RESID 
UNKN(I)  -  UNKN(I)  +  RESID 

30  COHTINUE 

DEBUGGING  STATEMENTS  FOR  LEVEL  >  2. 

IF  (LEVEL  .GT.  2)  WRITE (6, 31) ITER, RESMAX 

31  FORMAT (5X, 'FOR  ITERATION  ',15,'  MAXIMUM  RESIDUAL  IS  ',E10.4) 

EXIT  LOOP  AND  REPORT  #  OF  ITERATIONS  IF  CONVERGENCE  CRITERIA  IS  MET. 

IF  (RESMAX  .LE.  ZETA)  THEN 

IF (LEVEL  .GT.  0)  WRITE (6, 35) ITER 
35  FORMAT ('CONVERGED  IN  ',14,'  ITERATIONS.',//) 

GO  TO  50 

END  IF 
40  CONTINUE 

REPORT  IT  CONVERGENCE  CRITERIA  NOT  MET  AFTER  ITMAX  ITERATIONS. 

IF  (LEVEL  .GT.  0)  WRITE  (6,45)  ITMAX 
45  FORMAT ('NO  CONVERGENCE  AFTER  ',  14,'  ITERATIONS.',//) 

IF  LEVEL  >  0,  PRODUCE  SOLUTION  SUM4ART  TABLES. 

50  IF  (LEVEL  .GT.  0)  CALL  Q8SOLN(UNKN) 

RETURN 

END 
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SUBROUTINE  Q8CVHD  (Q,  RK,  TINE,  H,  POS,  VI,  V2 ,  V3 ,  V4 ,  V5,  DIR) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

Q8CVHD  PRINTS  A  BANNER  WHEN  A  CONVECTIVE  INTERFACE  IS  INVOKED, 

CHARACTER*8  DIR 
CHARACTER  POS,Al,A2 
A1  -  'Y' 

A2  -  'Z' 

IF  (POS  .BQ.  'Y'  .OR.  POS  .EQ.  •  )  A1  -  'X' 

IF  (POS  .EQ.  A2  -  'Y' 

WRITE(6,10)  DIR,P0S,V1,A1,V2,V3,A2,V4,V5,Q,RK,TINF,H 
10  FORMAT (2 {/73 ('*')) /'**', 

A  6X,A8,'  CONVECTIVE  INTERFACE  INVOKED  AT  ',A1,'  - 
B  F7.4,5X,'**'/'**',6X,A1,'  -  ',Fe.4,'  TO  ',F8.4,'  &  ',A1, 

C  '  -  ',*'8.4,'  TO  ',F8. 4, 5X,'**' /'**', 6X,'Q  -  ',E8.3,'  K  -' , 

D  F7.3,'  TINF  -  ',F8.3,'  H  -' , r8 . 3, 5X, ' , 2 (/73 (' *' ) ) //) 

RETURN 
END 


SUBROUTINE  Q8CDHD (QA, RKA, QB, RKB, POS , VI , V2 , V3 , V4 , V5 ) 

IMPLICIT  DOUBLE  PRECISION  {A-H,0-Z) 

Q8CDH0  PRINTS  A  BANNER  WHEN  A  CONDUCTIVE  INTERFACE  IS  INVOKED 

CHARACTER  POS,Al,A2 
A1  -  'Y' 

A2  -  'Z' 

IF  (POS  .EQ.  'Y'  .OR.  POS  .EQ.  'Z')  A1  -  'X' 

IF  (POS  .EQ.  'Z')  A2  -  'Y' 

WRITE (6,10)  POS,Vl,Al,V2,V3,A2,V4,V5,QA,RKA,QB,RKB 
10  FORMAT (2 (/73 ('*')) /'**', 

A  lOX, '  CONDUCTIVE  INTERFACE  INVOKED  AT  ',A1,'  -  ', 

B  F7.4,9X,'**'/'**',6X,A1,'  -  ',r8.4,'  TO',F8.4,'  &  ',A1, 

C  '  -  ',r8.4,'  TO  ',r8.4,5X,'**'/'**',6X,'QA  -  ',E8.3,'  RKA-', 

D  F7.3,'  QB  -  ',B8.3,'  RKB-' ,r8.3, 5X, ' , 2 (/73 (' *' ) ) //) 

RETURN 
END 


SUBROUTINE  Q8EQHD (NEQN) 

Q8EQHD  IS  A  DEBUG  STOROUTINE  THAT  PRODUCES  THE  HEADER  FOR  THE  EQUATION 
CURRENTLY  BEING  MODIFIED. 

WRITE  (6,1)  NEQN 

1  FORMAT  (/24  ('+'),'  DATA  FOR  EQUATION  ',14,'  ',25 ('+')) 

RETURN 

END 
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SUBROUTINE  Q8EQDT  (L3CVCT,  MEQN,  I,X, DX,  A, NX,  II,  IXl,  1X2,  J,  Y, DY,  B, NY, 
A  J1 ,  JYl ,  JYa,  K,  Z ,  OZ ,  C,  NZ,  K1 ,  KZl ,  KZ2,  COEF,  IDCO,  BBBB, MNEQ, MNCO) 

IMPLICIT  DOUBLE  PRECISION (A-H,  O-Z) 

Q8EQDT  IS  A  DEBUG  SUBROUTINE  THAT  OUTPUTS  THE  RELEVANT  PARAMETER 
DATA  USED  WHEN  MODIFYING  THE  CURRENT  EQUATION. 


INTEGER  IDCO (MNEQ, MNCO) 

DOUBLE  PRECISION  COEF (MNEQ, MNCO) 

DOUBLE  PRECISION  BBBB (MNEQ) 

DOXJBLE  PRECISION  TEMP  (8) 

LOGICAL  L3CVCT (1:10000, 6) 

CHARACTER*8  POSIT (8) 

INTEGER  EAST, SOUTH, WEST, NORTH, UPPER, LOWER,  CENTER, RHS 
DATA  EAST, SOUTH, NEST, NORTH, UPPER, LOWER, CENTER, RHS 

A  /  1,  2,  3,  4,  5,  6,  7,  8  / 

IF  (L3CVCT (MEQN, EAST)  .OR.  L3CVCT (NEQN, WEST) )  THEN 
WRITE (6, 5)  I,  X,  DX,  A,  NX,  II 
5  FORMAT  (73 ('-')/'!-', 13,'  X  -',F6.4,'  DX-',F6.4, 

A  '  A  -',F6.4,'  NX-', 13,'  II-', 13,'  XCVECT  INTERFACE') 

ELSE 


WRITE  (6,10)  I,  X,  DX,  A,  NX,  11,1X1,1X2 
10  FORMAT  (73 ('-')/'!-', 13,'  X  -',F6.4,'  DX-',F6.4, 

A  '  A  -',F6.4,'  NX-', 13,'  Il-',I3,'  1X1-', 13,'  1X2-', 13) 

EMDIF 

IF  (L3CVCT (NEQN, NORTH)  .OR.  L3CVCT (MEQN, SOUTH) )  THEN 
WRITE  (6,15)  J,  Y,  DY,  B,  NY,  J1 
15  FORMAT  ('J-',I3,'  Y  -',r6.4,'  DY-',F6.4,'  B  -' , 

A  F6.4,'  NY-', 13,'  J1-',I3, '  YCVECT  INTERFACE') 

ELSE 

WRITE  (6,20)  J,  Y,  DY,  B,  NY,  Jl,jyi,JY2 
20  FORMAT  ('J-',I3,'  Y  -',r6.4,'  DY-',F6.4,'  B  -' , 

A  F6.4,'  MY-', 13,'  J1-',I3,'  JYl-', 13,'  JY2-',I3) 


ENDIF 

IF  (L3CVCT (MEQN, UPPER)  .OR. 


L3CVCT (NEQN, LONER) )  THEM 


WRITE  (6,25) 

K,  2/ 

DZ,  C,  NZ, 

K1 

25 

FORMAT  ('K-', 

13,' 

Z  -',F6.4,' 

DZ-',F6.4,'  C  -', 

A 

F6.4,'  NZ-', 

13,' 

K1-',I3,' 

ZCVECT  INTERFACE' /73 ('-')) 

ELSE 

IF  (KZl  .EQ.  0 

.AND. 

KZ2  .EQ.  0) 

THEN 

WRITE  (6,28) 

K,  Z, 

DZ,  C,  NZ, 

K1 

28 

FORMAT  ('K-' 

,13,' 

Z  -',F6.4, 

'  DZ-',F6.4,'  C  -', 

A 

F6.4,'  NZ-' 

,13,' 

K1-',I3,' 

ZCDUCT  INTERFACE' /73 ('-')) 

ELSE 

WRITE  (6,30) 

K,  2, 

DZ,  C,  NZ, 

Kl,  KZl,  KZ2 

30 

FORMAT  ('K-' 

,13,' 

Z  -',F6.4, 

'  DZ-',F6.4,'  C  -', 

A 

F6.4,'  HZ-' 

,13,' 

K1-',I3,' 

KZl-', 13,'  KZ2-',I3/ 

B 

73('-')) 

BNDIF 

ENDIF 

POSIT (1)  -  '  CENTER' 
POSIT (8)  -  '  RHS' 

M  -  IDCO(NE(^,l) 

DO  35  H  -  2,7 

POSIT (N)  -  ' 

IF  (COEF  (NE(^,N) 
lF(IDCO(ME(^,N) 
IF(lDCO(ME(»l,N) 

IF  (IDCO  (NEW,  N) 
IF(IDCO(MEQMrN) 


.EQ.  O.DO)  GOTO  35 
.EQ.  M-1)  POSIT (N) 


.EQ.  M-t-1) 
.EQ.  M-NX) 
.EQ.  M4MX) 


POSIT (N) 
POSIT (N) 
POSIT (M) 


^  r 


m  * 


WEST' 

EAST' 

SOUTH' 

NORTH' 
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ir (1DC0(NEQN,N)  .EQ.  M-NX*NY)  POSIT (N)  -  '  LOWER' 

IF (lDCO(NEQN,N)  .EQ.  M+NX*NY)  POSIT (M)  -  '  UPPER' 

35  CONTINUE 

DO  40  M  -  1,6 

TEMP(M)  -  COEF(NEQN,M-l-l)/COEF(NEQN,l) 

40  CONTINUE 

TEMP (CENTER)  -  COEF(NEQN,l) 

TEMP(RHS)  -  BBBB (NEQN) /TEMP (CENTER) 

WRITE (6, 45) (POSIT(N) ,N-1,8) 

45  FORMAT (3X,7A8,6X,A8) 

WRITE (6, 50)  TEMP (7), (TEMP (N) ,N-1, 6) ,TEMP (8) 

50  FORMAT  (Ell . 4, 6F8 . 4, '  -  ' ,E9.4/73  ('-' ) /) 

RETURN 

END 


SUBROUTINE  Q8BDAT (COEF,  RHS,  ITYPE,  POS) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

CHARACTER* 5  POS 

THIS  IS  A  DEBUG  SUBROUTINE  TO  CHECK  DATA  GENERATED  BY  SUBROUTINE 
Q3BNDY. 

WRITE (6, 10)  POS,  ITYPE,  COEF,  RHS 

10  FORMAT (' - >BOUNDARY  ',A5,'  TYPE  ',12,'  COEF-' , E12 . 4, 

A  '  RHS-',E12.4,'< - ') 

RETURN 

END 


SUBROUTINE  Q8BRST(COEF,  RHS,  ITYPE,  POS) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0>Z) 

CHARACTER*5  POS 

Q8BRST  IS  A  DEBUG  SUBROUTINE  TO  CHECK  DATA  GENERATED  BY  SUBROUTINE 
Q3BMDY  WHEN  A  BOUNDARY  IS  RESET. 

WRITE (6, 10)  POS,  ITYPE,  COEF,  RHS 

10  FOBMAT(' - >RST  BDRY  ',A5,'  TYPE  ',12,'  COEF-' ,E12 . 4, 

A  '  RHS-',E12.4,'< - ') 

RETURN 

END 


159 


OOO  OOO  flOO  ooo  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o  o 


SUBROUTINE  Q8S0LN(U) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 


E  L  L  P  A  C  K  OUTPUT  MODULE  SOLUTION  SUMMARY  TABLES 
PURPOSE 

Q8SOLN  PRODUCES  A  SET  OF  SOLUTION  SUMMARY  TABLES  THAT  ARE  FAIRLY  EASY 
TO  READ.  A  TABLE  IS  PRODUCED  FOR  EACH  Z  GRID  POINT  DEFINED  FOR  THE 
REGION.  DUE  TO  SPACE  LIMITATIONS,  ONLY  9  X  VARIABLES  CAN  BE  PRINTED 
ACROSS  THE  PAGE.  THE  VARIABLE  U  IS  THE  SOLUTION  VECTOR. 

RESTRICTION  —  ALL  BOUNDARY  CONDITIONS  MUST  BE  NON-DIRICHLET.  IF  THEY 
ARE  NOT,  THE  DATA  TABLES  HILL  NOT  PROPERLY  FORMAT. 

AUTHOR 

VINCENT  J.  VAN  JOOLEN 

VERSION 

MAY  1991 


COMION  /  CIIVDI  /  NEQN,  MNEQ,  NCOE,  MNCO 

C0M40N  /  CIIVGR  /  NX,  NY,  NZ,  IINBPT,  IlMBPT,  IIPACK 

CO»MON  /  CIGRDX  /  GROX(l) 

COMMON  /  CIGRDY  /  GROY(l) 

C0M40N  /  CIGRDZ  /  GRDZ(l) 

DOUBLE  PRECISION  U(MNEQ) 

INTEGER  N ( 9) ,  EQN ( 9) 

INITIALIZE  N  VALUES  TO  BE  USED  IN  NRITE  STATEMENTS. 

DO  5  1-1,9 
N(l)  -  I*NX/9 
5  CONTINUE 

PRINT  SOLUTION  TABLE  HEADER. 

WRITE (6, 10) 

10  FORMAT (2 (/70('*'))/'**',66X,'**'/'**',15X, 'SOLUTION  TABLE', 

A'  FOR  ELLIPTIC  EQUATION' , 15X, '**'/'**', 66X, 2 (/70 ('*')) ) 

GENERATE  NZ  TABLES  FOR  EACH  Z  GRID  POINT. 

DO  50  I  -  1,NZ 

WRITE  HEADER  FOR  EACH  VALUE  OF  Z. 

WRITE (6, 15)  GRDZ(I) 

15  FORMAT (///14('>'),5X,' TEMPERATURE  PROFILE  AT  Z  -  ',F7.4,5X, 
A  14('<')/) 

WRITE  (6,20)  (GRDX(N(J) )  ,  J-1,9) 

20  FORMAT (4X,'X  -  ',9F7.4/'Y  -' ) 

DO  45  J  -  1,NY 
DO  25  K  -  1,9 

EQN(K)  -  H(K)  +  NX*((J-1)  +  NY* (I-l) ) 
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25  CONTINUE 

WRITE (6, 30) GRDY ( J) , (U (EQN (K) 
30  rORMAT(r7.4,2X,9(r7.2)) 

45  CONTINUE 
50  CONTINUE 
WRITE (6,  60) 

60  FORMAT (///) 

RETURN 

END 

END. 
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APPENDIX  E 


LEVEL  1  OUTPUT  FOR  A  SINGLE  CHIP  ON  A  SUBSTRATE 


DISCRETIZATION  MODULE 


7POINT  3D 

NUMBER  OF  EQUATIONS  648 

EXECUTION  SUCCESSFUL 

************************************************************************* 
************************************************************************* 
**  UPPER  CONVECTIVE  INTERFACE  INVOKED  AT  Z  -  0.0005  ** 

**  X  -  0.0000  TO  0.0250  4  T  -  0.0000  TO  0.0250  ** 

**  Q  -  .OOOE+00  K  -  1.000  TINF  -  20.000  H  -  50.000  ** 

************************************************************************* 
************************************************************************* 


************************************************************************* 

************************************************************************* 


** 

EASTERN  CONVECTIVE  INTERFACE 

INVOKED  AT 

X  - 

0.0010 

** 

A* 

Y  -  0.0000  TO  0.0010  4  Z 

-  0.0005 

TO 

0.0025 

** 

** 

Q  -  .625E<f08  K  -  50.000  TINF 

-  20.000 

H  - 

50.000 

** 

************************************************************************* 

****************«*«**********f>******************************************* 


************************************************************************* 


NORTHERN  CCBTVECTIVE  INTERFACE 

INVOKED  AT 

Y  - 

0.0010 

** 

** 

X  -  0.0000  TO  0.0010  4  Z 

-  0.0005 

TO 

0.0025 

** 

** 

Q  -  .625E408  K  -  50.000  TINF 

-  20.000 

H  - 

50.000 

** 

************************************************************************* 

************************************************************************* 


************************************************************************* 
************************************************************************* 
**  CCXIDUCTIVE  INTERFACE  INVOKED  AT  Z  -  0.0005  ** 

*•  X  -  0.0000  TO  0.0010  4  T  -  0.0000  TO  0.0010  ** 

**  QA  -  .OOOE-t-00  RKA-  1.000  QB  -  .625E-I-08  RKB-  50.000  ** 

************************************************************************* 


162 


« 


********************************************************************** 
**  ** 

**  START  SOR  ROUTINE:  ** 

**  ** 

*******************************************************«'***«***«*4,«^^4t 

***************************************************4r*****it********«*A* 


RELAXATION  FACTOR 
CONVERGENCE  CRITERIA 
MAXIMUM  ITERATIONS 


1.94 

O.lOE-03 

10000 


CONVERGED  IN  227  ITERATIONS. 


* 


********************************************************************** 

**  ** 

**  SOLtTTION  TABLE  FOR  ELLIPTIC  EQUATION  ** 

*★  ★* 


»»»»»»»  TEMPERATURE  PROFILE  AT  Z  -  0.0000  ««««««« 


X  - 

0.0000 

0.0003 

0.0006 

0.0010 

0.0020 

0.0060 

0.0120 

0.0180 

0.0250 

0.0000 

68.63 

68.46 

67.83 

65.52 

41.93 

22.90 

20.26 

20.02 

20.00 

0.0003 

68.46 

68.30 

67.66 

65.35 

41.76 

22.89 

20.26 

20.02 

20.00 

0.0006 

67.83 

67.66 

67.02 

64.73 

41.23 

22.85 

20.26 

20.02 

20.00 

0.0010 

65.52 

65.35 

64.73 

62.53 

39.95 

22.76 

20.26 

20.02 

20.00 

0.0020 

41.93 

41.76 

41.23 

39.95 

33.73 

22.39 

20.24 

20.02 

20.00 

0.0060 

22.90 

22.89 

22.85 

22.76 

22.39 

20.67 

20.09 

20.01 

20.00 

0.0120 

20.26 

20.26 

20.26 

20.26 

20.24 

20.09 

20.02 

20.00 

20.00 

0.0180 

20.02 

20.02 

20.02 

20.02 

20.02 

20.01 

20.00 

20.00 

20.00 

0.0250 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

»»»»»»»  TEMPERATURE  PROFILE  AT  Z  -  0.0001  ««««««« 


X  - 

0.0000 

0.0003 

0.0006 

0.0010 

0.0020 

0.0060 

0.0120 

0.0180 

0.0250 

0.0000 

68.92 

68.75 

68.14 

65.89 

42.02 

22.91 

20.26 

20.02 

20.00 

0.0003 

68.75 

68.59 

67.97 

65.73 

41.85 

22.90 

20.26 

20.02 

20.00 

0.0006 

68.14 

67.97 

67.36 

65.13 

41.32 

22.86 

20.26 

20.02 

20.00 

0.0010 

65.89 

65.73 

65.13 

62.99 

40.03 

22.78 

20.26 

20.02 

20.00 

0.0020 

42.02 

41.85 

41.32 

40.03 

33.78 

22.39 

20.24 

20.02 

20.00 

0.0060 

22.91 

22.90 

22.86 

22.78 

22.39 

20.67 

20.09 

20.01 

20.00 

0.0120 

20.26 

20.26 

20.26 

20.26 

20.24 

20.09 

20.02 

20.00 

20.00 

0.0180 

20.02 

20.02 

20.02 

20.02 

20.02 

20.01 

20.00 

20.00 

20.00 

0.0250 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 
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»»»»»»»  TEMPERATURE  PROFILE  AT  Z  -  0.0003  ««««««« 


X  - 

0.0000 

0.0003 

0.0006 

0.0010 

0.0020 

0.0060 

0.0120 

0.0180 

0.0250 

0.0000 

69.70 

69.59 

69.17 

67.53 

42.09 

22.92 

20.26 

20.02 

20.00 

0.0003 

69.59 

69.46 

69.06 

67.42 

41.92 

22.91 

20.26 

20.02 

20.00 

0.0006 

69.17 

69.06 

68.64 

67.01 

41.39 

22.87 

20.26 

20.02 

20.00 

0.0010 

67.53 

67.42 

67.01 

65.41 

40.11 

22.78 

20.26 

20.02 

20.00 

0.0020 

42.09 

41.92 

41.39 

40.11 

33.81 

22.40 

20.24 

20.02 

20.00 

0.0060 

22.92 

22.91 

22.87 

22.78 

22.40 

20.67 

20.09 

20.01 

20.00 

0.0120 

20.26 

20.26 

20.26 

20.26 

20.24 

20.09 

20.02 

20.00 

20.00 

0.0180 

20.02 

20.02 

20.02 

20.02 

20.02 

20.01 

20.00 

20.00 

20.00 

0.0250 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

»»»»»»»  TEMPERATURE  PROFILE  AT  Z  -  0.0005  ««««««« 


X  - 

0.0000 

0.0003 

0.0006 

0.0010 

0.0020 

0.0060 

0.0120 

0.0180 

0.0250 

0.0000 

70.67 

70.65 

70.61 

70.48 

41.99 

22.90 

20.26 

20.02 

20.00 

0.0003 

70.65 

70.64 

70.59 

70.46 

41.82 

22.89 

20.26 

20.02 

20.00 

0.0006 

70.61 

70.59 

70.55 

70.41 

41.29 

22.85 

20.26 

20.02 

20.00 

0.0010 

70.48 

70.46 

70.41 

70.26 

40.03 

22.76 

20.26 

20.02 

20.00 

0.0020 

41.99 

41.82 

41.29 

40.03 

33.73 

22.39 

20.24 

20.02 

20.00 

0.0060 

22.90 

22.89 

22.85 

22.76 

22.39 

20.67 

20.09 

20.01 

20.00 

0.0120 

20.26 

20.26 

20.26 

20.26 

20.24 

20.09 

20.02 

20.00 

20.00 

0.0180 

20.02 

20.02 

20.02 

20.02 

20.02 

20.01 

20.00 

20.00 

20.00 

0.0250 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

»»»»»»»  TEMPERATURE  PROFILE  AT  Z  -  0.0007  ««««««« 


X  « 

0.0000 

0.0003 

0.0006 

0.0010 

0.0020 

0.0060 

0.0120 

0.0180 

0.0250 

0.0000 

70.66 

70.65 

70.61 

70.54 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0003 

70.65 

70.64 

70.60 

70.53 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0006 

70.61 

70.60 

70.56 

70.48 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0010 

70.54 

70.53 

70.48 

70.40 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0020 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0060 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0120 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0180 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0250 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 
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»»»»»»» 


TEMPERATURE  PROFILE  AT  Z 


0.0011 


««««««« 


X  - 

0.0000 

0.0003 

0  0006 

0.0010 

0.0020 

0.0060 

0.0120 

0.0180 

0.0250 

0.0000 

70.57 

70.56 

70.53 

70.49 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0003 

70.56 

70.55 

70.52 

70.47 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0006 

70.53 

70.52 

70.48 

70.42 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0010 

70.49 

70.47 

70.42 

70.35 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0020 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0060 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0120 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0180 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0250 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

»»»»»»»  TEMPERATURE  PROFILE  AT  Z  -  0.0018  ««««««« 


X  - 

0.0000 

0.0003 

0.0006 

0.0010 

0.0020 

0.0060 

0.0120 

0.0180 

0.0250 

0.0000 

70.14 

70.11 

70.04 

69.96 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0003 

70.11 

70.08 

70.00 

69.89 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0006 

70.04 

70.00 

69.87 

69.69 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0010 

69.96 

69.89 

69.69 

69.30 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0020 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0060 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0120 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20,00 

20.00 

0.0180 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0250 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

»»»»»»» 


TEMPERATURE  PROFILE  AT  Z  -  0.0025  ««««««« 


X  - 

0.0000 

0.0000 

69.68 

0.0003 

69.61 

0.0006 

69.44 

0.0010 

69.21 

0.0020 

20,00 

0.0060 

20.00 

0.0120 

20.00 

0.0180 

20.00 

0.0250 

20.00 

0.0003  0.0006 

69.61  69.44 
69.52  69.28 
69.28  68.79 
68.91  67.74 
20.00  20.00 
20.00  20.00 
20.00  20.00 
20.00  20.00 
20.00  20.00 


0.0010  0.0020 

69.21  20.00 
68.91  20.00 
67.74  20.00 
63.12  20.00 
20.00  20.00 
20.00  20.00 
20.00  20.00 
20.00  20.00 
20.00  20.00 


0.0060  0.0120 

20.00  20.00 

20.00  20.00 

20.00  20.00 

20.00  20.00 

20.00  20.00 

20.00  20.00 

20.00  20.00 

20.00  20.00 

20.00  20.00 


0.0180  0.0250 

20.00  20.00 
20.00  20.00 
20.00  20.00 
20.00  20.00 
20.00  20.00 
20.00  20.00 
20.00  20.00 
20.00  20.00 
20.00  20.00 
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SOLUTION  MODULE 


BAND  6  E 


NUMBER  OF  EQUATIONS  648 
LOWER  BANDWIDTH  81 
UPPER  BANDWIDTH  81 
REQUIRED  WORKSPACE  158760 


EXECUTION  SUCCESSFUL 


k 


********************************************************************** 
********************************************************************** 
**  ** 

**  SOLUTION  TABLE  FOR  ELLIPTIC  EQUATION  ** 

**  ** 

*********************  ***********************4^**************  *********4^* 


»»»»»»»  TEMPERATURE  PROFILE  AT  Z  -  0.0000  ««««««« 


X  - 

0.0000 

0.0003 

0.0006 

0.0010 

0.0020 

0.0060 

0.0120 

0.0180 

0.0250 

0.0000 

68.64 

68.47 

67.83 

65.52 

41.93 

22.90 

20.26 

20.02 

20.00 

0.0003 

68.47 

68.30 

67.66 

65.35 

41.76 

22.89 

20.26 

20.02 

20.00 

0.0006 

67.83 

67.66 

67.02 

64.74 

41.23 

22.85 

20.26 

20.02 

20.00 

0.0010 

65.52 

65.35 

64.74 

62.53 

39.95 

22.76 

20.26 

20.02 

20.00 

0.0020 

41.93 

41.76 

41.23 

39.95 

33.73 

22.39 

20.24 

20.02 

20.00 

0.0060 

22.90 

22.89 

22.85 

22.76 

22.39 

20.67 

20.09 

20.01 

20.00 

0.0120 

20.26 

20.26 

20.26 

20.26 

20.24 

20.09 

20.02 

20.00 

20.00 

0.0180 

20.02 

20.02 

20.02 

20.02 

20.02 

20.01 

20.00 

20.00 

20.00 

0.0250 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

»»»»»»» 

TEMPERATURE 

PROFILE 

AT  Z  - 

■  0.0001  ««««««« 

X  - 

0.0000 

0.0003 

0.0006 

0.0010 

0.0020 

0.0060 

0.0120 

0.0180 

0.0250 

Y  ** 

0.0000 

68.92 

68.75 

68.14 

65.89 

42.02 

22.91 

20.26 

20.02 

20.00 

0.0003 

68.75 

68.59 

67.97 

65.73 

41.85 

22.90 

20.26 

20.02 

20.00 

0.0006 

68.14 

67.97 

67.36 

65.14 

41.32 

22.86 

20.26 

20.02 

20.00 

0.0010 

65.89 

65.73 

65.14 

62.99 

40.04 

22.78 

20.26 

20.02 

20.00 

0.0020 

42.02 

41.85 

41.32 

40.04 

33.78 

22.39 

20.24 

20.02 

20.00 

0.0060 

22.91 

22.90 

22.66 

22.76 

22.39 

20.67 

20.09 

20.01 

20.00 

0.0120 

20.26 

20.26 

20.26 

20.26 

20.24 

20.09 

20.02 

20.00 

20.00 

0.0180 

20.02 

20.02 

20.02 

20.02 

20.02 

20.01 

20.00 

20.00 

20.00 

0.0250 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 
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»»»»»»»  TEMPERATURE  PROFILE  AT  Z  -  0.0003  ««««««« 


X  - 

0.0000 

0.0003 

0.0006 

0.0010 

0.0020 

0.0060 

0.0120 

0.0180 

0.0250 

0.0000 

69.70 

69.59 

69.17 

67.53 

42.09 

22.92 

20.26 

20.02 

20.00 

0.0003 

69.59 

69.48 

69.06 

67,42 

41.92 

22.91 

20.26 

20.02 

20.00 

0.0006 

69.17 

69.06 

68.65 

67.01 

41.39 

22.87 

20.26 

20.02 

20.00 

0.0010 

67.53 

67.42 

67.01 

65.41 

40.11 

22.78 

20.26 

20.02 

20.00 

0.0020 

42.09 

41.92 

41.39 

40.11 

33,81 

22.40 

20.24 

20.02 

20.00 

0.0060 

22.92 

22.91 

22.87 

22.78 

22.40 

20.67 

20.09 

20.01 

20.00 

0.0120 

20.26 

20.26 

20.26 

20.26 

20.24 

20.09 

20.02 

20.00 

20.00 

0.0180 

20.02 

20.02 

20.02 

20.02 

20.02 

20.01 

20.00 

20.00 

20.00 

0.0250 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

»»»»»»»  TEMPERATURE  PROFILE  AT  Z  -  0.0005  ««««««« 


X  - 

0.0000 

0.0003 

0.0006 

0.0010 

0.0020 

0.0060 

0.0120 

0.0180 

0.0250 

0.0000 

70.67 

70.65 

70.61 

70.48 

41.99 

22.90 

20.26 

20.02 

20.00 

0.0003 

70.65 

70.64 

70.59 

70.46 

41.82 

22.89 

20.26 

20.02 

20,00 

0.0006 

70.61 

70.59 

70.55 

70.41 

41.29 

22.85 

20.26 

20.02 

20.00 

0.0010 

70.48 

70.46 

70.41 

70.26 

40.03 

22.76 

20.26 

20.02 

20.00 

0.0020 

41.99 

41.82 

41.29 

40.03 

33.73 

22.39 

20.24 

20.02 

20.00 

0.0060 

22.90 

22.89 

22.85 

22.76 

22.39 

20.67 

20.09 

20.01 

20.00 

0.0120 

20.26 

20.26 

20.26 

20.26 

20.24 

20.09 

20.02 

20.00 

20.00 

0.0180 

20.02 

20.02 

20.02 

20.02 

20.02 

20.01 

20.00 

20.00 

20.00 

0.0250 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

»»»»»»»  TEMPERATURE  PROFILE  AT  Z  -  0.0007  ««««««« 


X  - 

0.0000 

0.0003 

0.0006 

0.0010 

0,0020 

0.0060 

0.0120 

0.0180 

0.0250 

0.0000 

70.66 

70.65 

70.62 

70.54 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0003 

70.65 

70.64 

70.60 

70.53 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0006 

70.62 

70.60 

70.56 

70.49 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0010 

70.54 

70.53 

70.49 

70.40 

20.00 

20,00 

20.00 

20.00 

20.00 

0.0020 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0060 

20.00 

20,00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0120 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0180 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0250 

20.00 

20.00 

20.00 

20,00 

20.00 

20.00 

20.00 

20.00 

20.00 
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»»»»»»»  TEMPERATURE  PROFILE  AT  Z  -  0.0011  ««««««« 


X  - 

0.0000 

0.0003 

0.0006 

0.0010 

0.0020 

0.0060 

0.0120 

0.0180 

0.0250 

0.0000 

70.57 

70.56 

70.53 

70.49 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0003 

70.56 

70.55 

70.52 

70.47 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0006 

70.53 

70.52 

70.48 

70.42 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0010 

70.49 

70.47 

70.42 

70.35 

20-00 

20.00 

20.00 

20.00 

20.00 

0.0020 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0060 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0120 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0180 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0250 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

»»»»»»»  TEMPERATURE  PROFILE  AT  Z  -  0.0018  ««««««« 


X  - 

0.0000 

0.0003 

0.0006 

0.0010 

0.0020 

0.0060 

0.0120 

0.0180 

0.0250 

0.0000 

70.14 

70.11 

70.05 

69.96 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0003 

70.11 

70.08 

70.00 

69.89 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0006 

70.05 

70.00 

69-87 

69.69 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0010 

69.96 

69.89 

69.69 

69.30 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0020 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0060 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0120 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0180 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0250 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

»»»»»»»  TEMPERATURE  PROFILE  AT  Z  -  0.0025  ««««««« 


X  - 

0.0000 

0.0000 

69.68 

0.0003 

69.61 

0.0006 

69.44 

0.0010 

69.21 

0.0020 

20.00 

0.0060 

20.00 

0.0120 

20.00 

0.0180 

20.00 

0.0250 

20.00 

0.0003  0.0006 

69.61  69.44 
69.52  69.28 
69.28  68.79 
68.91  67.74 
20.00  20.00 
20.00  20.00 
20.00  20.00 
20.00  20.00 
20.00  20.00 


0.0010  0.0020 

69.21  20.00 
68.91  20.00 
67.74  20.00 
63.12  20.00 
20.00  20.00 
20.00  20.00 
20.00  20.00 
20.00  20.00 
20.00  20.00 


0.0060  0.0120 

20.00  20.00 

20.00  20.00 

20.00  20.00 

20.00  20.00 

20.00  20.00 

20.00  20.00 

20.00  20.00 

20.00  20.00 

20.00  20.00 


0.0180  0.0250 

20.00  20.00 
20.00  20.00 
20.00  20.00 
20.00  20.00 
20.00  20.00 
20.00  20.00 
20.00  20.00 
20.00  20.00 
20.00  20.00 
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ELLPACK  OUTPUT 


++++++++++++++++++++++++++ 
+  + 
+  EXECUTION  TIMES  + 

+ 

++++++++++++++++++++++4.+^^ 


SECONDS  MODULE  NAME 

0.07  7-POINT  3D 

0.07  BAND  6E  SETUP 

1.17  BAND  GE 

2 . 01  TOTAL  TIME 
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APPENDIX  F 


SAMPLE  LEVEL  2  OUTPUT 

LEVEL  2  output  is  extensive  and  should  be  used  exclusively  for  debugging.  The 
program  written  for  this  paper  provides  LEVEL  2  output  at  the  time  the  equations  are 
modified  along  the  interfaces  and  during  each  iteration  of  the  SOR  algorithm.  A  sample 
of  this  output  is  listed  in  this  qjpendix. 

For  an  equation  lying  on  an  interface  which  is  being  modified,  a  typical  LEVEL  2 
data  set  might  look  like: 


++++++++++++++++++++++++  DATA  FOR  EQUATION  244  +++-*•+++++++++++++++++++++ 

- >BOUNDARY  HEST  TYPE  2  COEF-  0.5556E+07  RHS-  0.0000E+00< - 

- >BOONDARY  SOUTH  TYPE  2  COEF-  0.5556E+07  RHS»  0.0000B+0O< - 


I-  1  X  -0.0000  DX-0.0003  A  -1.0000  NX-  9  11-  1  IXl-  1  1X2-  9 

J-  1  Y  -0.0000  DY-0.0003  B  -1.0000  NY-  9  Jl-  1  JYl-  1  0X2-  9 

K-  4  2  -0.0005  DZ-0.0002  C  -1.0000  NZ-  8  Kl-  1  ZCVECT  INTERFACE 


CENTER  BAST  NORTH  UPPER  RHS 

-0.4747E+08  -0.2341  -0.2341  -0.5266  0.0000  0.0000  0.0000  -  .1053E+00 


The  header  indicates  that  the  coefficients  are  being  modified  for  die  equation  whose  index 
number  is  244. 

The  first  section  of  die  data  pertains  to  the  boundary.  The  particular  grid  point 
under  investigation  lies  on  a  type  2  (Neumaim)  western  and  southern  boundary.  The 
western  and  southern  coefficients  are  listed  as  they  t^ipear  before  they  are  normalized  by 
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the  central  variable  coefficient.  The  right  hand  side  of  the  boundary,  in  both  cases  0,  is 
also  listed. 

The  second  section  of  the  data  reports  the  parameters  used  to  modify  the  equation. 
They  are  delQned  as  follows: 

•  I:  Index  of  the  x  grid  point  for  the  equation  listed. 

•  J:  Index  of  the  y  grid  point  for  the  equation  listed. 

•  K;  Index  of  the  z  grid  point  for  the  equation  listed. 

•  X:  X  grid  point. 

•  Y:  Y  grid  point. 

•  Z:  Z  grid  point. 

•  DX:  Distance  between  current  x  point  and  previous  x  point  on  the  grid.  Equals 

1  if  on  western  boundary. 

•  DY:  Distance  between  current  y  point  and  previous  y  point  on  the  grid.  Equals 

1  if  on  southern  boundary. 

•  DZ:  Distance  between  current  z  point  and  previous  z  point  on  the  grid.  Equals 

if  on  lower  boundary. 

•  A:  Alpha  multiplier  for  east  x  interval. 

•  B:  Beta  multqtlier  for  north  y  interval. 

•  C:  Qamma  multqtUer  for  u{^r  z  interval. 

•  NX:  Total  mimber  of  x  grid  points. 

•  NY:  Total  number  of  y  grid  points. 

•  NZ:  Total  number  of  z  grid  points. 
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•  II'  Position  of  first  X  grid  point  where  temperature  is  unknown  (Equals  2 

if  boundaiy  is  Dirichlet). 

•  Jl:  Position  of  first  y  grid  point  where  the  temperature  is  unknown  (Equals  2 

if  boundaiy  is  I^chlet). 

•  Kl:  Position  of  first  z  grid  point  where  the  temperature  is  unknown  (Equals  2 

if  boundaiy  is  Dirichlet). 

•  IXl:  Index  of  first  x  grid  point  on  the  interface. 

•  1X2:  Index  of  last  x  grid  point  on  the  interface. 

•  JYl:  Index  of  first  y  grid  point  on  the  interface. 

•  JY2:  Index  of  last  y  grid  point  on  the  interface. 

The  line  ’ZCVECT  INTERFACE*  indicates  diat  the  point  lies  on  a  convective  interface 
parallel  to  the  xy  plane. 

The  final  section  contains  the  modified  values  of  the  coefficients  of  the  equation. 
The  number  marked  ’center’  is  the  value  of  the  center  coefficient  after  it  has  passed 
through  the  interface  modification  routines.  The  remaining  numbers  are  the  values  of  the 
respective  coefficients  after  they  have  been  normalized  by  dividing  by  the  center 
coefficient.  The  right  hand  side  values  are  also  printed  after  being  normalized  to  the 
center  coefficient. 

During  the  execution  of  the  SOR  subroutine,  a  typical  LEVEL  2  output  qipears  as: 

FOR  ITERATION  1  MAXIMUM  RESIDUAL  IS  0.3889E+02 
•  •  •  *  •  •  • 

FOR  ITERATION  227  MAXIMUM  RESIDUAL  IS  0.9671E>04 
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This  output  reports  the  maximum  residual  for  each  iteration  and  aUows  the  user  to  track 
the  convergence  of  the  program. 

In  both  examples,  the  LEVEL  2  output  proved  extremely  useful  when  debugging 
the  program.  It  should  be  noted  that  the  LEVEL  1  output  will  also  ^ar  when  LEVEL 
2  is  requested. 

■i 

) 
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APPENDIX  G 


LEVEL  0  OUTPUT  FOR  THE  INFINITE  SUBSTRATE/CHIP  MODEL 


A********************************************************************* 
itititititif  it  it  if  it  it  it  it  it  it  *  it  it  it  it  it  it  it  if  if  it  it  if  it*  it  it  if  it  it  itit  it  it*  It  it  it*  it  it  it  it  ft  it  it -kit  ic*  it  it  it  it  it  it  it*  it  it  it  it  it  it  ir 
**  ** 


** 


SOLUTION  TABLE  FOR  ELLIPTIC  EQUATION 


** 


**  ** 
********************************************************************** 
********************************************************************** 


>»»»»»»>  TEMPERATURE  PROFILE  AT  Z  -  0.0000  ««««««« 


X  - 

0.0000 

0.0003 

0.0006 

0.0010 

0.0020 

0.0060 

0.0120 

0.0180 

0.0250 

0.0000 

68.64 

68.47 

67.83 

65.52 

41.93 

22.90 

20.26 

20.02 

20.00 

0.0003 

68.47 

68.30 

67.66 

65.35 

41.76 

22.89 

20.26 

20.02 

20.00 

0.0006 

67.83 

67.66 

67.02 

64.74 

41.23 

22.85 

20.26 

20.02 

20.00 

0.0010 

65.52 

65.35 

64.74 

62.53 

39.95 

22.76 

20.26 

20.02 

20.00 

0.0020 

41.93 

41.76 

41.23 

39.95 

33.73 

22.39 

20.24 

20.02 

20.00 

0.0060 

22.90 

22.89 

22.85 

22.76 

22.39 

20.67 

20.09 

20.01 

20.00 

0.0120 

20.26 

20.26 

20.26 

20.26 

20.24 

20.09 

20.02 

20.00 

20.00 

0.0180 

20.02 

20.02 

20.02 

20.02 

20.02 

20.01 

20.00 

20.00 

20.00 

0.0250 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

»»»»»»»  TEMPERATURE  PROFILE  AT  Z  -  0.0001  ««««««« 


X  - 

0.0000 

0.0003 

0.0006 

0.0010 

0.0020 

0.0060 

0.0120 

0.0180 

0.0250 

0.0000 

68.92 

68.75 

68.14 

65.89 

42.02 

22.91 

20.26 

20.02 

20.00 

0.0003 

68.75 

68.59 

67.97 

65.73 

41.85 

22.90 

20.26 

20.02 

20.00 

0.0006 

68.14 

67.97 

67.36 

65.14 

41.32 

22.86 

20.26 

20.02 

20.00 

0.0010 

65.89 

65.73 

65.14 

62.99 

40.04 

22.78 

20.26 

20.02 

20.00 

0.0020 

42.  C2 

41.85 

41.32 

40.04 

33.78 

22.39 

20.24 

20.02 

20.00 

0.0060 

22.91 

22.90 

22.86 

22.78 

22.39 

20.67 

20.09 

20.01 

20.00 

0.0120 

20.26 

20.26 

20.26 

20.26 

20.24 

20.09 

20.02 

20.00 

20.00 

0.0180 

20.02 

20.02 

20.02 

20.02 

20.02 

20.01 

20.00 

20.00 

20.00 

0.0250 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 
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»»»»»»»  TEMPERATURE  PROFILE  AT  Z  -  0.0003  ««««««« 


X  - 

0.0000 

0.0003 

0.0006 

0.0010 

0,0020 

0.0060 

0.0120 

0.0180 

0.0250 

0.0000 

69.70 

69.59 

69.17 

67.53 

42.09 

22.92 

20.26 

20.02 

20.00 

0.0003 

69.59 

69.48 

69.06 

67.42 

41.92 

22.91 

20.26 

20.02 

20.00 

0.0006 

69.17 

69.06 

68.65 

67,01 

41.39 

22.87 

20.26 

20.02 

20.00 

0.0010 

67.53 

67.42 

67.01 

65.41 

40.11 

22.78 

20.26 

20.02 

20,00 

0.0020 

42.09 

41.92 

41.39 

40.11 

33.81 

22.40 

20.24 

20.02 

20.00 

0.0060 

22.92 

22.91 

22.87 

22.78 

22.40 

20.67 

20.09 

20.01 

20.00 

0.0120 

20.26 

20.26 

20.26 

20.26 

20.24 

20.09 

20.02 

20.00 

20.00 

0.0180 

20.02 

20.02 

20.02 

20.02 

20.02 

20.01 

20.00 

20.00 

20.00 

0.0250 

20.00 

20.00 

20.00 

20.00 

20,00 

20.00 

20.00 

20.00 

20.00 

»»»»»»»  TEMPERATURE  PROFILE  AT  Z  -  0.0005  ««««««« 


X  - 

0.0000 

0.0003 

0.0006 

0.0010 

0.0020 

0.0060 

0.0120 

0,0180 

0.0250 

0.0000 

70.67 

70.65 

70,61 

70,48 

41.99 

22.90 

20.26 

20.02 

20.00 

0.0003 

70.65 

70.64 

70.59 

70,46 

41.82 

22.89 

20.26 

20.02 

20.00 

0.0006 

70.61 

70.59 

70,55 

70.41 

41.29 

22.85 

20.26 

20.02 

20.00 

0.0010 

70.48 

70.46 

70.41 

70.26 

40.03 

22.76 

20.26 

20.02 

20.00 

0.0020 

41.99 

41.82 

41.29 

40.03 

33.73 

22.39 

20.24 

20.02 

20.00 

0.0060 

22.90 

22.89 

22.85 

22.76 

22.39 

20.67 

20.09 

20.01 

20.00 

0.0120 

20.26 

20.26 

20.26 

20.26 

20.24 

20.09 

20.02 

20.00 

20,00 

0.0180 

20.02 

20.02 

20.02 

20.02 

20.02 

20.01 

20.00 

20.00 

20.00 

0.0250 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

»»»»»»»  TEMPERATURE  PROFILE  AT  Z  -  0.0007  ««««««« 


X  - 

0.0000 

0.0003 

0.0006 

0.0010 

0.0020 

0.0060 

0.0120 

0.0180 

0.0250 

0.0000 

70.66 

70.65 

70.62 

70.54 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0003 

70.65 

70.64 

70.60 

70.53 

20.00 

20,00 

20.00 

20.00 

20.00 

0.0006 

70.62 

70.60 

70.56 

70.49 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0010 

70.54 

70.53 

70.49 

70.40 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0020 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0060 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0120 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0180 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0250 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 
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««««««« 


»»»»»»»  TEMPERATURE  PROFILE  AT  Z  -  0.0011 


X  - 

0.0000 

0.0003 

0.0006 

0.0010 

0.0020 

0.0060 

0.0120 

0.0180 

0.0250 

Y  ** 

0.0000 

70.57 

70.56 

70.53 

70.49 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0003 

70.56 

70.55 

70.52 

70.47 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0006 

70.53 

70.52 

70.48 

70.42 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0010 

70.49 

70.47 

70.42 

70.35 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0020 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0060 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20,00 

0.0120 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20,00 

0.0180 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0250 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20,00 

»»»»»»»  TEMPERATURE  PROFILE  AT  Z  -  0.0018  ««««««« 


X  - 

0.0000 

0.0003 

0.0006 

0.0010 

0.0020 

0.0060 

0.0120 

0.0180 

0.0250 

Y  ** 

0.0000 

70.14 

70.11 

70.05 

69.96 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0003 

70.11 

70.08 

70.00 

69.89 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0006 

70.05 

70.00 

69.87 

69.69 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0010 

69.96 

69.89 

69.69 

69.30 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0020 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0060 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0120 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0180 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0250 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

»»»»»»»  TEMPERATURE  PROFILE  AT  Z  -  0.0025  ««««««« 


X  - 

0.0000 

0.0003 

0.0006 

0.0010 

0.0020 

0.0060 

0.0120 

0.0180 

0.0250 

0.0000 

69.68 

69.61 

69.44 

69.21 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0003 

69.61 

69.52 

69.28 

68.91 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0006 

69.44 

69.28 

68.79 

67.74 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0010 

69.21 

68.91 

67.74 

63.12 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0020 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0060 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0120 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0180 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

0.0250 

20,00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 

20.00 
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